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Cartes mémoire RAM et ROM 
pour HP48 SX-GX (de 128KB à 1MB) 

(compatibles 100% HP) 
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Cartes mémoire RAM 
Produites par la société MICROCARDS, spécialiste en micro-électronique, en 
toute sécurité pour l'utilisateur. 

On peut les placer indifféremment sur port 1 ou 2, et les utiliser en mémoire 
fusionnée ou comme mémoire annexe. 

Avec nos cartes, le passage de banque est manuel, par interrupteur (ce qui per- 
met une utilisation sur GX ou SX) ; la taille de chaque banque est de 128K 
octects. 

Les données sont conservées par micro-accumulateur interne et non par pile, 
rechargeable depuis la HP, avec une sur-consommation négligeable et une du- 
rée de vie de 10 ans. 

Un micro-interrupteur permet l'accès ou le blocage d'écriture. 
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CARDRAM 48HP512 
pour HP48SX-GX 
4x128KB 


LES PRIX ? (directement du producteur au consommateur): 

Cardram 48HP128 (capacité 128KB) 495F ttc 

Cardram 48HP256 (capacité 256KB) 795F ttc 

Cardram 48HP512 (capacité 512KB) 1295F ttc 

Cardram 48HP1024 (capacité 1024KB) 2195F ttc 

Frais de portcolissimo recommandé: jusqu'à 1500F de commande : 45F ttc 

au delà de 1500F : 60F ttc 



made by 

ru icrocards , 


42220-6 U R DIGNE S- FRANCE 

INSERT 



128KB 


pour SX 
pour GX 
SX ou GX 


Jeux 1 
Jeux2 


ütils2 

Maths 

Divers 


CARDROM 48HP128 
pour HP48SX-GX 



M made by 

#r\l ICROCARDS , 

42220-BURDIGNES-FRANCE 

INSERT 


ATTENTION : pour votre commande, précisez si vous 
possédez une 48SX ou une 48GX , car les logiciels 
sont différents selon les machines . 

Certains fonctionnent sur les deux, d'autres ne jonc- 


NOUVEAU ! ! ! 

Toute une série de cartes ROM 128KB ( ineffaçables), sont à présent dis- 
ponibles. à des prix très bas pour le plus grand plaisir de chacun. 

Vous trouverez donc pour 48SX ou 48GX: 

UTILS 1 * 1 carte rom utilitaires de très haut niveau !!! (Assembleur - 

Désassembleur - Word pour HP - Exploreur de librairies - Convertisseur 
de codes G/GX vers S/SX et inversement - lecture de mémoire ram et rom 

- Pour programmer en external - Communiquer avec le minitel etc... etc...) 

JEUX 1 1 1 carte rom jeux ; le must !!! (Xennon - Tetris - Boulder - 
Arkanoïd - Vader - Lemmings - Diamant - Columns - Solitaire - Frogg - 
lce - Mazzogs - Gargage - fünnei - etc...) 

HPMANIAC 1 : 1 carte rom super géniale !!! (Démineur - Editeur de 
tableaux - .[eu de réflexion - Reversi - DIGITAL pour écouter des sons 
digitalisés - MUSED I R pour composer des musiques - PIANO pour com- 
poser sur votre clavier - BÏGIÎANNR pour faire défiler en gros caractères 

- PRO J ECT pour protéger vos librairies - RECOVERS pour retrouver 
vos données perdues - POR TS pour voir le contenu des ports - MEGAZAPP 
une super télécommande - EXTERNAL compileur etc... etc...) 

420F ttc la carte 
790F ttc les 2 cartes 
1100F ttc les 3 cartes 

Frais de port colissimo 45F ttc 

(nous pouvons également vous fournir des cartes ROM 128KB 
avec vos propres programmes installés : prix unitaire 525F tte 
Téléphoner pour renseignements techniques) 

Pour commander, utilisez de préférence notre bon 


donnent que sur Tune ou sur l'autre. de commande à la fin de ce magazine . 

Copyright 1994 MICROCARDS : document non ton trac luel - les prix peuvent modifies a tout moment sans avis préalable 
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EDITORIAL 

hcrs lecteurs et amis programmeurs, Merci. Vous êtes de plus en plus nombreux dans toute la FRANCE 
et maintenant dans les pays Irancophones à apprécier notre revue. Nous avons eu même une demande de 
la bibliothèque scientifique de MOSCOU ! Nous en sommes très fiers !!! Cette fois, nous avons beaucoup de 
retard pour la parution ; nous essaierons d'être plus ponctuels pour le numéro d'octobre prochain. 

Revenant de Hannovre en Allemagne, au CEBIT, nous avons pu nous faire une idée des tendances ultérieures 
concernant le marché de 1 informatique qui nous intéresse. Dans ce salon grand comme plusieurs fois ceux de 
PARIS, j'ai pu constater Y invasion (pacifique !) des asiatiques. La COREE. TAIWAN, et la MALAISIE figu- 
rent au premier plan. Il faut dire que la main d’oeuvre est plutôt bon marché là-bas ! Le format PCMCIA est en 
pleine explosion, et on peut prédire aisément qu'il fera son apparition en force en FRANCE très prochainement 
où il est actuellement encore peu développé. Vous remarquerez également dans les "News" ces étonnantes 
cartes laser, dont la taille et l'épaisseur sont exactement identiques aux cartes de crédit et avec des capacités de 
stockage extraordinaires. Autre nouveauté, le HP I OÜLX version 2MB. Son prix est un peu près semblable au 
1MB d'auparavant ; ce dernier baisse de i 000F environ, Hewlett Packard propose aux US une mise à niveau de 
votie ancien appateil pour environ 2000F. Microcards va le proposer aussi. En ce qui concerne le magazine, 
vous pourrez remarquer que celui-ci s’est considérablement étoffé. C'est un très long travail que de réunir toutes 
ces informations, de les corriger éventuellement et d’en faire la mise en page. Mais le résultat, je l'espère, est 
payant (concernant la qualité). Nous avons essayé de traiter d’un maximum de machines, et nous ferons encore 
mieux la prochaine fois ! Une dernière chose concernant de nombreux lecteurs qui se demandent comment 
procéder pour proposer leur articles ou idées. C'est très simple, il suffit de nous les faire parvenir par courrier! 
si possible tapés à la machine, ou encore mieux sous traitement de textes type PC. Nous offrons un numéro 
gratuit pour les petits articles et un abonnement gratuit pour les plus longs articles (à partir d'une page dactylo). 
Certains nous demandent si cela est rémunéré. Ceci est impossible. Je précise que POCHE COMPUTERS 

équilibie loul juste ses Irais d impression. 11 ne perd ni ne gagne d’argent ! Le rédactionnel et la mise en paec 
sont faits bénévolement ! 


CORRECTIFS DU NUMERO 2 DE POCHE COMPUTERS 

Im perfection n 'est pas de ce monde , bien entendu . Cependant , nous nous excusons auprès de 
nos lecteurs de les avoir fait attendre. Nous apportons ici quelques corrections concernant 2 
articles du precedent numéro . Nous en profitons une fois encore pour engager nos rédac- 
teurs occasionnels à nous fournir leurs articles tapés à la machine ou mieux , sur disquette 
PC sous n 'importe quel format Cela nous évitera de très longues heures de saisie et des 
erreurs potentielles. La lecture de certains articles reçus tient plus du déchiffrage de hiéro- 
glyphes que de programmes d'informatiques. Or nous ne sommes pas égyptologues ! mais 
in formaticiens . 

1) Pour le jeu de Tetris sur HP28S page 26, vous avez été nombreux à nous signaler les erreurs (de 
frappe) ; les voici : 

Bloc numéro 1 : ...après 20202 02022 383E2 et non 38F2 
Bloc numéro 3 : ...après 2073D 201 OE 42331 et non 42231 
Bloc numéro 1 1 : ...après 70E72 15D7A 01)5 DE et non 05DE 

2) Pour Partiele "ANIMEZ VOS GRAPHIQUES CASIO" page 16 : 

Concernant l’accès à la mémoire vive valable pour les graphiques séries 8000 et suivantes, il fallait lire : 

■ => EXE MODE EXPAC RANGE RANGE appuyer 7 fois sur tt puis <= et DEL Eteindre la 
machine et rallumer, puis MODE 3 SHIFT DEL 

Dans la zone de l'écran texte, remplacer n+16 par n+15 

Dans la partie concernant le chiffre, la mantisse et l'exposant, page 17 colonne de gauche, il faut lire chiffre 1, 
mantisse +, et exposant + (et non -). 

Enfin, page 17, colonne de droite dans le petit programme pour illustrer, il faut lire aux 2 premières lignes : E 

12 (exposant) et nQn 
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par JL LECOMTE 



Voici quelques infos de notre envoyé spécial au Cebit de Hannovre 1994 



Jusqu'à 6,6MB de capacité ! 

(l'équivalent de 3000 pages de textes !) 

Après les cartes PCMCIA, voici les cartes LASER 
an format carte de crédit et d’une épaisseur de 
0,8mm (comme une carte bancaire), jusqu'à 50000 
écritures sont possibles. On peut stocker toutes 
sortes de données à partir d'un PC ou d’un MAC. 
Cette nouvelle carte intéresse plus particulièrement 
le domaine bancaire, mais aussi le domaine scien- 
tifique {en particulier la médecine), le domaine 
commercial et bien sûr le domaine militaire. Outre 
son très faible encombrement, cette carte peut être 
produite en très grande série et à faible coût. Sa 
technologie s’apparente beaucoup à celle des dis- 
ques laser, et d'ailleurs son aspect extérieur res- 
semble à un mini CD ROM, mais de forme rectan- 
gulaire. L'écriture de cette carte s'effectue à partir 
d'un lecteur spécial, branché sur la carte mère d'un 
micro, ou sur sa sortie parallèle. La société qui 
fabrique ce produit (USA - Californie), espère ven- 
dre 25 millions de cartes en 


260MB sur une carte 
PCMCIA type III ! 


Tel est le nouveau record d'intésralion 

w- 

et du rapport miniaturisation / puissance. 
Mais jusqu’où vont-ils-aller? Heureuse- 
ment pour nous, utilisateurs, très loin !!! 
L’annonce de la société Californienne 
MUNIS TOR a fait l'effet d'une bombe 
(heureusement sans tuer personne !) 

Ce mini disque dur est compatible avec 
tous les micros acceptant le type 111 (Acer 
- AST - Chaplel - Chicony - Del! -HP- 
Olivetti - Toshiba - Zeos - etc...) 




NOUVEAU ! 
Carte PCMCIA 
type 2 SCSI 

New Media vient d'annoncer 
la sortie d’une carte PCMCIA 
type! permettant l'accès à 
tous les périphériques SCSI. 

Il est désormais possible par 
exemple de connecter un CD 
ROM à votre HP100LX !!!, 
mais également un scanner, un disque dur ultra rapide etc... 
L'intérêt de l’interface SCSI réside par sa puissance et sa 
rapidité. Disponible chez MICROCAR DS 



On devait s’y attendre, eh bien c'est chose faite: 

un pocket compatible PC486, le plus 
petit au monde vient de sortir... 

Celui-ci nous vient d’extrême-orient. Pour des dimen- 
sions de 24cm de large pour 1 3cm de profondeur et 3,8cm 
d'épaisseur, il pèse 900 grammes. Son alimentation par 6 
piles alcalines (ou accus rechargeables) lui donnent une 
autonomie de lOheures. Son affichage est un écran VGA 
à 64 niveaux de gris. Son processeur de type 486 SLC 
EV/25 permet d'accepter une mémoire centrale de 4MB 
jusqu'à 16MB avec un disque dur interne de 260MB. Il 
possède trois ports PCMCIA, deux de type 2 et un de 
type 3 : track-ball intégré, interface parallèle et série, et 
enregistreur vocal. Sa rom contient MS-DOS 6.2 et 
Windows 3.1. Il est importé par MICROCARDS, existe 
en plusieurs versions et son prix de base est de 9900FHT. 
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LES NEWS 


LES NEWS... LES NEWS... 



DU SON POUR VOTRE POCKET... 

NEW MEDIA sort également une carte PCMCIA type!, WAV jammer qui vous offre un 
son haute fidélité, de qualité CD. Vous pouvez enregistrer et écouter à des cadences 
d'échantillonage allant jusqu'à 44,1 KHz, en mode stéréo 16 bits. La carte son est livrée 
avec le gestionnaire client PCMCIA de NEW MEDIA et Windows VXD, ainsi qu'avec 
Microsoft Sound System 2.0. Vous pouvez l'utiliser pour l'enregistrement et l'écoute ù 
partir de la plupart des applications Windows. Elle est compatible avec AdLib et Sound 
Blaster. 

Disponible chez MICRÜCARDS. 


Un aperçu du stand cartes mémoire MITSUBISHI 
au CeBIT 94 de HANNOVRE (Allemagne). 



ËÊifefc tflrsfHji : : 







Pour la majorité, ce sont des cartes ROM - RAM ou FLASH EPROM au 
standard PCMCIA type I ou 2 (68 pins) ; le reste étant constitué de cartes 
à standards spécifiques de type industriel avec des brochages de 32, 38, 
ou 88 pins, souvent utilisées dans des applications de robotique ou inter- 
face de communication. 



Voici un jeu impressionnant de cartes mémoire PCMCIA en flash Eprorn. 
La société américaine SUNDISK Corporation fabrique des cartes de ca- 
pacité diverses depuis 1,8MB jusqu'à 40MB, destinées aux Pockets et 
Portables. L’avantage des cartes Flash par rapport aux cartes SRAM est : 
-une meilleure résistance aux chocs - 
-une plus grande capacité en taille mémoire 
-une fiabilité égale à 100% 

-une conservation des données sans pile ni accumulateur 
-un prix de vente inférieur 

L'inconvénient majeur par rapport aux SRAM est la non possibilité de 
re programmation comme on désire. En effet, dans le cas d'une satura- 
tion mémoire, l'utilisateur doit effacer une partie de la carte pour intro- 
duire un nouveau fichier. Leur utilisation est surtout appréciable lors- 
qu'il s’agit de sauvegarder des fichiers très importants, tant en qualité 
qu’en quantité, (dispo chez MICROCARDS) 


Le nouveau logicie 1 MONEY pour PSION Séries 
3a est enfin disponible en FRANCE. 

Conçu pour une utilisation de comptabilité per- 
sonnelle, il propose toutes sortes de possibilités 
telles que ; 

- Gestion de compte bancaire 

- Dépenses - recettes personnelles 

- Livre des achats - recettes 

- TVA 

- Devises 


Il dépasse les limites de 
compression de 1 pour 2 ! 

Le nouveau STACKER 
est arrivé ! version 4.0 
Avec cette nouvelle ver- 
sion, vous pouvez désor- 
mais transformer une dis- 
quette 1.44MB en 
3,5MB, plus que doubler 
la taille de votre disque 
dur ou multiplier par 2,3 
en v i ro n 1 a capac i té d' une 
carte mémoire PCMCIA 
en toute sécurité. 
Logiciel à adopter de 
toute urgence !!! (dispo 
chez MICROCARDS) 
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CHOISIR UN POCKET... 

par Etienne DEMARCQ 

Passionnés de micros de poche et inconditionnels de miniaturisation, notre choix , en 1994 , 
se portera essentiellement sur 4 appareils présents sur le marché français. Nous n'aborderons pas ici les 
" subnotebooks " et autres " mobile computers" ( pardon , Mister ALLGOOD!), qui sont en fait des appareils 
beaucoup plus volumineux et lourds , et souvent avec une autonomie de fonctionnement réduite à quelques 
hem es. Voici un comparatif ; le plus impartial possible, de ces ordinateurs. 



1) Le PORTFOLIO (ATARI) 

Apparu en 1 990, cet appareil a fait et fait encore le bonheur 
de milliers de personnes. En son temps, il fût véritablement 
novateur. Imaginez un compatible PC avec un "grand" écran 
de 40 colonnes par 8 lignes et 128K RAM de mémoire ex- 
tensible a 5 1 2 K. l)n s lot pour carte mémoire additionnelle 
et une liaison directe sur PC par l’intermédiaire d’une inter- 
face parallèle. 

Sur le papier, il semble particulièrement séduisant, cepen- 
dant, à l'usage on s'aperçoit de quelques vices plutôt désa- 
gréables, et quelquefois même franchement détestables. En 
premier lieu, la ROM interne mis au point par les Anglais 
D.I.P., dans ses premières versions fut une catastrophe. Les 
versions 1 .030 puis 1 .052 et enfin 1 .072 étaient bourrées de 
bugs, avec pour conséquence, des plantages inopinés de la 
machine au plus mauvais moment (c'est à dire lorsqu'on 
avait pas encore eu le temps de sauvegarder quoique ce soit 1) 
Heureusement, la version 1.130, impeccable, apparue en 
1992, a compensé ses erreurs. Mais le mal était déjà fait. 
Ensuite, la fameuse compabilité avec le PC n'est qu 'assez 
illusoire, dans la mesure où la taille mémoire est réduite 
(en version de base), l'écran n’affiche pas la norme 80 par 
25 caractères (ce qui oblige à une gymnastique pour faire 
tourner la plupart des logiciels PC), les interfaces parallèle 
et série ne sont pas aux normes classiques, et enfin, les car- 
tes mémoires ne sont non plus aux normes internationales 
PCMCIA. Pour couronner le tout, la société ATARI 
FRANCE (disparue corps et biens depuis quelques mois), 
n a jamais vraiment été à la hauteur sur le plan commercial. 
Nombreux sont les revendeurs ou les développeurs qui ont 
baissé les bras devant l'incompétence chronique de cette 
société, plus habituée à vendre des consoles de jeux que 
des ordinateurs ! 

A sa décharge, le PORTFOLIO est un appareil sérieux, so- 
lide, relativement puissant pour sa taille, et facile à exploi- 
ter. Ses principaux atouts résident dans le fait qu'il possède 
des logiciels internes qui le transforme en organiseur évo- 


ué, à J aire pâlir d'envie bien des organiseurs dits de haut de 
gamme ! Et en plus, c'est un ordinateur ! A 1 700F l'appareil 
se situe à la première place pour le prix, et de loin. 1! reste 
I ordinateur pri v ilégié des étudiants et gens peu fortunés ou 
ne désirant pas trop investir. Il a encore de beaux jours de- 
vant lui. Le marché de l'occasion se porte très bien. 


2) Le HIMOOLX (Hewlett Packard) 

Nous ne parlerons ici que du dernier modèle, le HPI 
non pas du HP95. Pourquoi 7 Parcequ a notre avis, les dif- 
férences entres les deux machines sont telles que le HP95 a 
complètement perdu de son intérêt pour quelqu'un qui dé- 
sire acquérir un nouvel ordinateur. D'ailleurs, il se vend de 
moins en moins, d'autant plus que le HP 100 a baissé de 
prix. Ce qui ne veut pas dire que le HP95LX soit obsolète, 
loin de là, mais on s intéresse ici à une décision éventuelle 
d'achat de la part du consommateur. 

Le HPI00LX ou "Cougar" (c'est son nom intime) résulte 
d’un fabuleux pari technologique. Un écran de 80 par 25ii- 
gnes. une mémoire ram interne de 1 ou 2 mégas. une com- 
patibilité très correcte avec le monde PC, des logiciels inté- 
grés de très bonne facture de type organiseur, un connec- 
teur de carte PCMCIA de type 2, et une interface série 
intégrée. Le tout dans un encombrement lifiputien et pour 
un poids très faible. Le dos 5.0 est présent en mémoire morte. 
Bref, tout pout plaire 1 

Lh bien, au risque de passer pour un oiseau de mauvais 
augure, je dirai qu'il y a quelques lacunes ou mauvaises 
idées conceptuelles concernant cet appareil. 

En premier lieu, on est frappé par la taille très petite des 
touches du clavier. Evidemment pourrait-on rétorquer, avec 
la taille générale de I appareil, les ingénieurs de chez HP 
nom pas pu t aire mieux. Peut-être, mais s ils avaient tout 
simplement augmenté cette taille générale de quelques 1 
ou 1.5 cm, cela n'aurait pas beaucoup pénalisé le HP. et le 
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CHOISIR UN POCKET... 



tour était joué. Ce qui aggrave le cas, c'est qu’il possède un 
clavier numérique séparé (ce qui est une bonne chose en 
soi, mais cela le pénalise encore plus). Vous me direz que 
certains utilisateurs ne trouvent pas cela trop gênant, mais 
ceux qui ont l'intention de beaucoup taper au clavier, la dé- 
sillusion pourrait venir rapidement. Par contre, dans le cas 
de l’utilisateur programmeur avant tout, cela présente beau- 
coup moins d'invénients. Deuxièmement, l'écran. Bien 
qu’il soit d'un contraste excellent et très lisible, les carac- 
tères sont malheureusement beaucoup trop petits ; ils sont 
minuscules. Le HP100 est à déconseiller aux gens qui ont 
des problèmes de vue de près. On pourrait rétorquer qu'il 
possède une fonction zoom qui permet un affichage 64 ou 
40 caractères. D'accord, mais on perd alors l’intérêt du 80 
colonnes par 25 lignes. Il est dommage également qu'il n'y 
ait pas de deuxième lecteur de carte mémoire PCMCIA ; ce 
qui aurait eu pour effet d'augmenter considérablement la 
puissance et la versatilité de l'appareil. Troisièmement, ü 
ne possède pas d’interface parallèle, et le problème de la 

connextion à une imprimante se pose alors ; il y a bien la 
solution du convertisseur série-parallèle, mais cela augmente 
encore le coût final. Enfin, il ne possède pas de véritable 
traitement de textes intègre, mais plutôt un éditeur de tex- 


Cependant c'est un appareil HP. avec tout le sérieux de la 
fabrication cl du service après vente. De plus, il possède 
une puissance de calcul phénoménale ! et ce, associée main- 
tenant avec la toute nouvelle version 2MB de mémoire ram. 
Le tableur est un modèle du genre avec la version Lotus ! - 
2-3 en memorte morte. Des périphériques arrivent de plus 
en plus nombreux également (Communications - Fax- car- 
tes Flasheprom- Interface SCSI- cartes sons etc...) Les ma- 
theux, les ingénieurs, trouveront là le pocket (presqu') idéal. 
Reste le problème du prix et bien que celui-ci ait chuté de 
1000F environ, il n’est pas encore adapté à toutes les bour- 
ses. Enfin, force est de constater l'extraordinaire engoue- 
ment qu'il suscite aux USA. 11 faut dire que là bas, les tarifs 
sont beaucoup plus alléchants qu'en Europe. 

3) Le PSION Sériés 3a 

Comme pour le HP, nous ne parlerons pas du Psion Sériés 
3, sorti voici déjà quelques années, tant le nouveau Sériés 
3a nous apparaît comme supérieur. 



fl s'agit ici d'un appareil très évolué et parfaitement bien 
pensé. Mais, fidèle à notre habitude, commençons par les 
reproches. 

La principale, et clic est de taille, c'est son incompatibilité 
avec le monde PC. En effet, le système d’exploitation est 
un système 'maison". Ceci est une attitude typiquement anglaise 
! Alors on se met à rêver d’un même appareil avec MS DOS 
intégré !!! 

Ceci étant, la communication des fichiers est possible avec 
les PC ou les Macintosh. Mais comme il est fortement re- 
grettable de ne pouvoir accéder à tout ! 'environnement PC 
ou Mac (les milliers de logiciels souvent gratuits que i on 
peut télédécharger via le réseau minitel. L'utilisateur est con- 
finé dans un ensemble de périphériques spéciaux et d'une 
bibliothèque de logiciels très réduite et souvent onéreuse. 11 
existe bien quelques "Free-ware"(princi paiement en Angle- 
terre), mais de toute façon, ceux-ci ne sont pratiquement 
jamais traduits. Quel dommage pour un ordinateur de cette 
classe ! Seconde remarque concernant les périphériques. 
Le Sériés 3a ne possède ni interface parallèle, ni interface 
série ; celles-ci sont en option, et les options coûtent très 
cher ! environ 800F à ajouter si on veut communiquer par 
la série et 500F si l'on veut imprimer par la parallèle. Quant 
aux cartes mémoire, les prix sont plus du double des prix 
pratiqués dans le domaine PCMCIA. Une lmégaramà 3500F 
!! ! Le futur acheteur devra bien réfléchir au coût de revient 
final. 

Sa mémoire interne de 256K ou 512K, si elle suffit à la 
majorité des applications internes, est sans aucun doute ina- 
daptée au fameux synthétiseur vocal qui a besoin de 8k par 
seconde d’enregistrement 1 faites le calcul... 

Au positif, ce pocket est exceptionnel dans son fonctionne- 
ment interne. L'interface utilisateur est d'une simplicité en- 
fantine. L'emploi des touches tactiles est très rapide. Le trai- 
tement de texte est formidable, la gestion de fichiers parti- 
culièrement efficace, et d'une manière générale toutes les 
applications le sont aussi. L’écran, généreux, de 79 colon- 
nes par 17 lignes (42 par 1 1 en traitement de texte) est très 
lisible et contrasté. Le clavier est parfait au vu de sa petite 
taille, (n'espérez pas cependant taper avec les 10 doigts) 

Le système est mulli-tâches ; ce qui veut dire que vous pou- 
vez effectuer plusieurs opérations différentes en même temps 
: étonnant pour un si petit ordinateur ! 

En résumé, le Psion sériés 3a conviendra parfaitement aux 
personnes désirant un super-organiscr de poche, ultra puis- 
sant et convivial, avec une possibilité intéressante de pro- 
grammation, mais sans aucune possibilité de réelle 
connextion au monde PC, un peu meilleure au monde Mac. 

4) Le SHARP PC3000 

Apparu fin 1992. le Sharp PC3000 a eu une histoire mou- 
vementée. En effet, à l'époque commercialisé par la FNAC 
et quelques autres revendeurs, il était proposé à quelques 7000F 
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!!! en version de base. La concurrence très rude a eu raison 
de sa commercialisation en FRANCE. De plus, une erreur 
dans la rom interne s’était glissée dans les premières ver- 
sions ; il n’en fallait pas plus pour descendre en flèche cet 
appareil, au demeurant extraordinairement puissant et bien 
pensé. En 1993, la société MICROCARDS a relancé la vente 
en important directement ce produit de l'étranger, et en di- 
visant les prix par deux. Il faut savoir que le Sharp se vend 
très bien dans les autres pays d'Europe dans le commerce 
traditionnel. L’erreur dans la rom interne a été corrigé et 
une nouvelle version est proposée maintenant, depuis sep- 
tembre 1993, sans aucun problème de fonctionnement. 
Bien sûr, les inconditionnels des ordinateurs à taille extrê- 
mement réduites seront déçus. Le SHARP PC3000 ne peut 
se glisser dans une poche de veste, mais plutôt dans celle 


d'un imperméable. De plus l’interface homme-machine (sans 
être compliquée) est beaucoup moins conviviale que le 
Series3a ou le HP 100. en effet, ici c'est le bon vieux sys- 
tème DOS qui est en vigueur, et certains utilisateurs débu- 
tants trouveront cela peu pratique. Disons que le SHARP 
est au système DOS ce que le PSION et le HP sont à 
WINDOWS au plan du fonctionnement. L'un et l’autre ont 
leurs fidèles défenseurs ou détracteurs. 

Quant à scs qualités, il n'en manque pas, et sa taille mé- 
moire importante permet l’accès à de nombreux logiciels 
sous DOS. Les deux connecteurs PCMCIA acceptent des 
cartes RAM, ROM ou Flash Eprom. Son clavier est sensa- 
tionnel. Agréable, précis et rapide, la largeur de scs touches 
permet une frappe à 10 doigts. L’écran est un vrai 80 colon- 
nes par 25 lignes avec un bon contraste. L'amateur de tex- 
tes à taper, l’écrivain, le journaliste, ou tout simplement celui 
qui désire un certain confort de frappe et de lecture, trou- 
vera là son bonheur. Le programmeur sera enchanté avec 
toutes les possibilités de programmation qu'il procure : Pas- 
cal - Basic - C - Assembleur - etc... et l'électronicien remar- 
quera le bus de type AT standard ainsi que son processeur 
80C88 à 10 méga hertz. 11 faut noter aussi les 8 logiciels 
intégrés, et la possibilité très importante de configurer le 
système, mémoire, langue, clavier, disques internes, etc... 
En conclusion, un appareil qui satisfera de nombreux utili- 
sateurs exigeants. 


Vous trouverez, ci-après deux tableaux comparatifs des différents ordinateurs de poche ici présentés. Le premier concernant 
les caractéristiques de chaque appareil, et le deuxième, un essai d'annotation en fonction de critères qui nous apparaissent 

importants. Le résultat de cette comparaison n'a pour but que de vous informer sur ces produits et de développer votre sens 
critique en la matière. 


yyi-Hyyy- : Nom A A y ÿ . 

PORTFOLIO 

HP95LX 

HP10ÛIX 

PSION series3 

PS JO N serlesSa 

SHARP PC3000 

Prix de vente approximatif 

1700F/2500F 

2990F/3990F 

4890F/5990F 

j 1690F/1990F 

3450F/399Q F 

3450F/3990F/5690F 

128K/512K 

512K/1MB 

1MB/2MB 

128K/256K 

256K/512K 

1MB/2MB/4MB 

fï: Dimensions en cm 

20x10x2,5 

16x8,6x2,5 

16x8,6x2,5 

16,5x8,5x2,2 

16,5x8,5x2,2 

22x11x2,5 

poids (avec plies) iyyy:-. 

490g 

320g 

320g 

270g 

270g 

480g 

Ap écran (ca ract ères) y y 

40x8 

40x16 

80x25 

40x8 

79x1 7 

80x25 

clavier Azerty ; yy ; 

oui 

OUi 

oui 

oui 

oui 

oui 

; clavier chiffres séparés 

non 

oui 

oui 

non 

non 

non 


30heures 

SOheures 

SOheures 

SQheures 

flOheures 

40heures 

% ^microprocesseur:-;; ÿ 

80C88 

Nec V20H 

8QC186 

NEC V30H 

NEC V36H 

B0C88 

j f i&sM# ! V Itesse | 

4,91 MHz 

5, 33MHz 

7, 91MHz 

3, 84MHz 

7,68MHz 

10MHz 

systèmed’exploltatlon 

MS DOS 2.11 

MS DOS 3,22 

MS DOS 5.0 

propriétaire 

propriétaire 

MS DOS 3.3 

: ; Ipy il nterfac e pa r a | lèls ; y T 

option 

option 

option 

option 

option 

oui 


option 

option 

option 

option 

option 

oui 

:|;|^||i:pmpatl bluté PCyiÿy y 

oui 

oui 

oui 

non 

non 

oui 

:ilj|l«pmpatlblllté Macyvyy 

fichiers 

fichiers 

fichiers 

— • ta — 

fichiers 

fichiers 

fichiers 

y^ïSÿçartes PCMCIA ; 

0 

1 de type 1 

1 de type 2 

0 

0 

2 de type 1 

yfpiü «àrtes spécifiques 

1 

0 

0 

2 

2 

0 

flflraltement de textesfy;:' 

éditeur 

éditeur 

éditeur 

oui 

oui 

ouf 


oui 

oui 

oui 

oui 

oui 

oui 

î .fl f ?? | f0: : • âge ndai f j ■ : ;y' y ; ■ y y ■; 

oui 

oui 

oui 

ou! 

oui 

oui 

hase de données 

option 

oui 

oui 

oui 

ouï 

oui 

capacité mémoire maxl 

512K 

1MB 

2M8 

256K 

512K 

- — — — — t— 

4MB 


7 
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!v!oïxvX^!^^A , î■ • '•* * S - -Si- < % % s-î ■" . 

PORTFOLIO 

HP95LX 

HP100LX 

PSION 

series3 

PSION; 

serles3a 

SHARP 

PC30Q0 

èéïC taille 
\ ehcombrernentl 

15 

20 

20 

20 

20 

13 

poids" 

15 

19 

19 

20 

20 

16 


8 

10 

14 

9 

16 

18 

clavier 

: | 

17 1 

11 

11 

16 

16 

20 

^ Ilrï ; ^ Ifé 

12 

16 

17 

18 

20 

15 

I rrté rf a c e utl 11 s sit: e ur 

13 

15 

17 

18 

20 

14 

r cohripatibuïtîâ PC 

10 

12 

| 18 

6 

6 

18 

compatibilité Mac 

6 

6 

6 

10 

10 

6 

|| Cpérî phérlq^esk ■ : 

9 

12 

18 

7 

9 

17 

A traitement dé i 

12 

10 

13 

16 

18 

17 

ll|t||iîabiéur|i|ii| 

15 

18 

20 

0 

17 

17 


15 

15 

18 

20 

20 

18 

ba sé de d o n née s 

0 

14 

18 

19 

19 

17 

çf té’ ’rn é^rtî ô I ; : ! 

11 

13 

18 

6 

12 

19 

pôrénité et se rvice 

IllppfèéVéhté'éikl;; 

12 

14 

18 

12 

18 

18 

lill Cfp 

20 

18 

14 

20 

17 

17 

Total dés notes 

184 

218 

259 

215 

258 

260 

Classement 

6ème 

4ème 

2ème 

5ème 

3ème 

: : S1 er % 


Commentaires : 

Ce tableau permet un classement approximatif des pockets 
les plus connus en FRANCE. Vous remarquerez que les 
appareils les plus modernes arrivent en tête ; c'est normal ! 
Cependant, les écarts entre eux ne sont pas significatifs, les 
3 premiers se situent dans un mouchoir de poche (c'est le 
cas de le dire). On peut considérer que l’acheteur orientera 
son choix essentiellement en fonction de ses besoins. S'il 
désire la puissance et la plus parfaite compatibilité et le 
besoin de frapper beaucoup de textes, il choisira sans hési- 
tations le SHARP PC3000. Au contraire, si pour lui, il doit 
effectuer beaucoup de calculs et pouvoir se connecter à des 
PC pour utiliser leur tableur, il choisira le HP100LX. En- 


fin, s’il est séduit par la petitesse et la grande convivialité, 
et que l'accès au monde PC l’importe peu, il choisira le 
PSION sériés 3 a. A ce niveau également, le prix peut avoir 
une influence, mais ne doit pas être le seul critère de sélec- 
tion, Bien sûr, s’agissant de pockets, la taille est très impor- 
tante, toutefois, attention à ne pas tomber dans l’extrême 
inverse, la grosseur de vos doigts, elle, ne change pas ! 
Interrogez-vous également sur les possibilités de connextion 
et sur la bibliothèque de logiciels avant de vous décider. 
Enfin, il est des critères dits irrationnels qui vont vous faire 
sélectionner tel ou tel appareil simplement par impulsion. 
Et quelquefois, ce n’est pas si mal ! 
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JEU DE CASES SUR PORTFOLIO 

par Thierry BODIN 



Voici un petit jeu fort intéressant pour le PORTFOLIO 
leurs de s 'initier à ce langage. 


Ecrit en basic , il permettra à de nombreux ama- 


100 randomize 

dim tabl(7,7),tabl2(7,7),cp$(8) 

200 cls 

open»i»,# I ,»memogame.scr» 
input #i,rcr 
close # I 

locale 1 ,9:pri nt «Thierry BODIN Présente: 
box 3, 10,5,29, 1 locale 4. 1 2,0 
print»Mémo-Game vl.O !» 
locale 7, 14:print»Aide (O/N) ?» 

22 a$-inkey$ 
if a$=»» then 22 

il a$=»o» or aS— »0» dieu gosub 20 
locale 7, 1 1 :pri nt » Initialisation ...» 
for i=l lo 7 


» « 


for j = ! lo 7 

tabl(i,j)=2i9 

labl2(i,j)=0 


xi pnexi i 

- » « 


il chr$(tabl2(x I ,y I ))=»%» then 
labll \ I , y I )=asc( «%» baoto 1 0 
4 locale 3.33:pnnt 


i=i to 7 


locale i+i.j* 


2+ I :print chrS( tahlf i.j )>;: 


gosub I 

labl2(x.y)=asc(«%») 
for i= I to 24:j= 1 

locale 7,29:print int((< i- ! )*2+î )* î 00/48); 

print»%» 

gosub I 

labi2(x,y)=i+64 
gosub 1 

tabl2(x.vj=i+64 

next i. 

cls 


locale 3,33: inpul «»,e2$ 
if len(c2S)<2 then 4 
x 2=asc( m i dS( c2S, I . I ))-64 
il x2>32 then x2=x2-32 
y2=asc( mid$(c2$,2, 1 ))-48 
if \2<i or x2>7 then 4 
if y2< I or v2>7 then 4 
if labll x2,y2)o2 19 then 4 
if c2S=cl$ ihen 4 
gosub 75 

■h--- 

cpS(8)=e2$ 


next j 
next i 
relurn 

1 x=int(rand(7)+ l) 
y-inl(rand(7)+ I ) 
if iabl2(x,y)>0 then I 
relurn 

75 for i=2 lo 8 
cp$( i- 1 )=cpS( i) 
next i:cp$(8)=» «: relurn 
20 cls 


aosub 2 

box 1,23.5,38,0 

seorc-0 

nbc=() 

iocate 8.25:prinl»Reeord: «::prini rcr;: locale 

1.1 

3 e I S— » «:c2$— » « 
for i= i to 8 


locale y 2+ ! ,x2*2+ 1 :print 
chrS(labl2(x2,y2));: locale 1 . 1 
i f c h rS ( tab 1 2 ( x2 , y 2 ) )=» % » 
then tabl(x2,y2)=asc( «%»): Iocate 
y I + 1 ,x I *2+ i :print»_»;:locatc l,l:goto 10 
il Uibl2(x2,v2)=iabl2(xl,v I) then 11 
locale 7, 2 5, 0: p n nt.» Loupé !» 
l’or i=l to 200: next i 


pritu»Le but du jeu est de trouver les cases» 
prim»identiques dans la grille ou bien le» 
print»bonus représenté par '7c'.» 
print»Exemple de jeu: Vous tapez B4 puis 
F6" 


print» Ces cases contiennent T' et “P 


.vous» 


print» perdez I point. Vous jouez ensuite 
Cl" 


locale i,l9:piint»l»+cp$(i)+»!»:: Iocate 1 . 1 
next i 

Iocate 2. 25:print»Case I: «+el$+» « 

locale 3.25:print»Case 2: «+c2$+» « 

locale 4,25:print»Score : « 

locale 4.33:prini score 

Iocate 2,33,2:input «»,clS 

h clS=»0" then clsrend 

if len(cl$)<2 lhen 3 

x I =asc(niidS(c 1 S ,1 , 1 ))-64 

il x 1 >32 then x!=xl-32 

y i =asc(tnid$(c 1 S. 2. 1 ) )-48 

if x 1< 1 or x ! >7 lhen 3 

if y 1 < 1 or yl>7 then 3 

if labll xi.vl )<>219 lhen 3 

gosub 75 

ep$(8)=CIS 

iocate y l + l,x 1*2+1 : print 

chrS(tabl2(xl,y I ));: Iocate l.l 


locale 7 ,25,0: print» « 

Iocate y 1 + 1 ,x i *2+1 :prmi»_»; 

locale y 2+1 ,x2*2+! :print»_»;: Iocate 1,1,0 

score=seore- i :golo 3 

10 Iocate 7,25,0:print»BONUS 

! » : sc ore=sc i > re+ 5 0 :gosu h 40 : wai t : goto 3 

1 1 labll x Ly 1 )=tab!2(x l.v I ) 

Iahl(x2,y2)=tahl2(x2,y2) 

nbc=nbc+ I (locale 7.25,0:print» 

B i e n ! » : sc o re= sc o re+ 2 
gosub 40 

k. ■ 

for i=l lo 200:next i: Iocate 7.25.0:print» 

« 

il nbc=24 lhen locale 7,25,0:prinl»Fini 
!»:gosub 40:wail:goto 123 
£Olü 3 

Su-’ 

2 Iocate 1 , 1 ,2:pnnt»\ A B C D E F G» 
for i= i lo 7 
Iocate i+I,î: print 


gosub 2 I 

print» qui contient 'P'. Tapez alors F6 qui» 
print» contient aussi T'. Vous gagnez 2 pis» 
print» et les 2 cases restes affichées.» 
print» Pour arrêter lapez 0 dans la case I.» 
print: print» Bon amusement !» 
gosub 2l:return 

21 Iocate 8. 1 ,0:print»Pressez une 
touche. ..»;:locate 1 . 1 ,0:wait:c]s:return 
40 sound 35,8:sound 39,8:sound 45,8:return 
: 23 if score>rcr then 1 24 
goto 200 
124 cls 

locale 3. 10: print» Nouveau Record !»;:print 
score 

open »(.)»,# 1 ,»memogamc.scr» 
print #1. score 
close #1 
wait 


r.: print» 


»;:locate 1,1 


goto 200 
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PDRAW POUR PORTFOLIO 


par M. BARRY 

Pdraw 2.0 est un logiciel de dessin très évolué tournant sur Portfolio standard. Entièrement écrit en PB AS IC 4.5 
Exportable sur PC), il démontrera que ce langage n'est pas un sous langage, et que, bien maîtrisé, il permet défaire beaucoup 
de choses... Cet article a aussi un aspect didactique, dans la mesure ou de nombreux débutants pourront comprendre et s'exercer 
à la programmation. 


Initialisations 
on error goto 30 
if indfd-l then indfd=0 goto 37 
if indtr-1 then gosub 93: indlr=0 goto 83 
if indret=l then 21 
if pass- ! then 20 
pa$s= I 

fi he 1 p$=»pdra w,li I p » 
fi t emp$=»pd ra vv. tm p» 
filogo$-»pdrawdgo» 
f iehh lp$=» pdrawh I p . bas » 
fiehfon$=»pdra\vfn 1 .bas» 
richnua$=>>pdrawnua.bas» 
fichdiv$=»pdrawdiv.bas» 
fichieo$=»pdrawico.bas» 
f : ch t ra $ - » pd ra w tra .bas » 
fiwa$=» I screen 4 
pgioad fîlogoS 
wait: cls: gosub 10: goto 25 
S0 pgsave fîtemp$: cls 
x= 1 20: y- 3 2 
13 pîxel=point(x,y) 
pset(x,y)*pixel xor 1 
c= J : pas- 15: [=0: J=1 
gosub 27: s wap e,pas: pol$=» 1 11 
s=0: 1=0: n=0: pp=0: qq=! 
modeS-»curseur»: pst=l: pse=l 
return 

***** Traitement clavier : commandes 

20 a$=inkey$: if a$=»» then 20 

21 indret=ü 

if a$=»K» then 40 ' Gauche 
if aS-»M» then 50 1 Droite 
if aS=»H» then 60 ' Haut 
if a$=»P» then 70 4 Bas 
îf a$-»G» then 4 1 4 H/G 
if aS=»l» then 5 ! 4 H/D 
if a$=»Q» then 6 ! 4 B/13 
if a$-»0» then 7 1 l B/G 

if a$-»x» then pst=l :psc-l :w=0:v= I :goto 24 
'mode curseur 
indpt=0 

if a$ =»g» then mode$=»gomme» : gosub 
22:pst=0:psc=0:pix3=0 goto 20 4 mode gomme 
if aS=» « then mode$=»c rayon »:gosub 
22:pst- 1 :psc= I :pîx3= 1 goto 20 ‘mode crayon 
if a$=chr$(27) then gosub 22: gosub 35: screen 7 
solo 31 'retour 

C 4 

if a$=»w» then indpt=! goto 20 dépôt 1 pixel 
if a$=»i» then gosub 35: screen 7: mdint— I : chain 
fichdivS longueur pas 

if a$=»l» then gosub 22: gosub 35: n-0: screen 7 
goto 90 dire image 

if a$=»s» then gosub 22: gosub 35: n=ü: screen 7 
g o t o 9 1 's au v e g ard e r 
if a$— »:» then swap expas goto 20 
'échanger pas 

if a$=»e» then kill fitemp$: gosub 10 goto 26 
'effacer écran 

if a$=»d» then xl=x:v l=y:indd=l :indv=t) goto 20 


if a$=»t» then 100 'trait 

if aS=chr$(20) then indts= 1 : goto 1 00 4 trait invvid 
if a$=»q» then 200 'quadri latere 

if a$=chr$(16) then indis-1: goto 200 ’quad, 
invvid 

if a$-»e» then 400 'cercle 

if a$=»a» then 404 4 arc 

if a$ =»o» then 410 'ovale 


îf a$=»r» then 82 
1 remplissage trames 

if a$=»m» then gosub 35: screen 7: indmem-1: 
chain fichdivS 4 mémo 

ifa$=»k» then gosub 22: gosub 35: screen 7: chain 
fîchfonS 'caractères 

if a$-»%» then gosub 22: gosub 35: chain fichfonS 
'caractères 

if a$=»h» then gosub 35: screen 7: chain fichhlpS 
'aide en ligne 

if a$=»f» then indm=0: ind2=0 goto 700 
‘déf. zone pour copie 
if a$=»v» or a$=»/» then 70! 

'copie de zone 

if a$=»z» then 800 'effacement zone 

if a$=»n» then 900 inversion video 

ifa$=»j» then gosub 22: gosub 35: screen 7; chain 
fichnuaS image points 
il' a $=»$>> then gosub 22: gosub 35: chain fichnuaS 
'nuage points 

îf a$=»y» then gosub 22: gosub 35: indicon-0: 
chain fichicoS 'création icône 

if a$=»u» then gosub 22: gosub 35; screen 7: 
indicon-l: chain fichicoS ‘incrustation icône 
if a$=»b» then gosub 22: gosub 35: screen 7: 
indfd-1 chain fichdivS 'trames de fond 
jf a$=»p>> then gosub 22: gosub 35: gosub 88: chain 
fîchtraS 

jfa$=» 1 n or a$=»2" or a$=»3" then pol$=a$: click 
goto 20 'valeur de n 
beep: goto 20 

22 If pp=l then swap pp.qq: gosub 23 
return 

24 if mode$=»erayon» then pixel= ï 
mode$=»curseur» goto 25 

if mode$=»g.omme» then pixeM.) 
mo de $ = » c u r sc u r » 

25 swap pp.qq 

tf pp-l then gosub 23 goto 20 
psetfx- ! ,y- 1 bpixell 
psetfx- 1, y + 1 ),pixel2 
pset(x+Ly-l ), pixel 3 
pseUx+Ly+l ),pixel4 

goto 20 

26 swap pp,qq: gosub 23 

28 a$=inkey$: if a$=»» then 28 
U'a$o»z» then goto 21 
pgioad fi tempS 
goto 20 

27 indd=0:indv=0:indm=0:ind2=ü:mds=0 
mdfmz,=0:indnm=0:indt=():indii=0 
îndal=0:indg=0:indf=0:inda=0:iiKlsw=0 
indext=0:indpass=0:indn=() 

return 

23 pixel l-point(x- 1 ,y- 1 ) 
pseUx- 1 ,y- i h pixel I xor 1 
pixel2=point(x~ 1 ,y+ 1 ) 
psehx-hy+l ),pixel2 xor 1 
pixel3=point(x+ Ly-1 ) 
pset(x+l,y-l),pixcl3 xor 1 
pixel4-point(x+ 1 ,y+l ) 
pset(x+l,y+1 >,pixcl4 xor t 
retu rn 

Traitement «on error goto...» 

30 if n=l then n=0: screen 4: pgioad fitempS: résumé 
99 

i f s= 1 then s=0: résumé 33 

if loi then screen 4: beep:beep résume 20 

1=0: screen 7 


pri ni « *** '** PDR AW - Lecture image « 
print «. « 

print « Fichier image non trouvé « 
wait: cls: résumé 90 

' ::|: *** Hffacemem licliier et sauvegarde 

32 n -0 : Hw$=fiw$+».pgc» 

s— 1 ; kill fiw$ 

33 screen 4; pgioad fitempS: pgsave fi w S 


s=0: click: return 

***** Sauvegarde temporaire image 
35 n=l: kill fitempS: pgsave fitempS return 
***** Sortie de programme 
31 print « ***** PDRAW - Sortie programme « 
print « « 

input « * Nom de f image : «.l'iwS 
if fiw$=»=» then cls: System 
if fiw$=»+» then screen 4: pgioad fitempS: goto 

20 

if fi \v $<>>>» then gosub 32: screen 2: System 
fiw$=fiwa$ 

if fiwS=» I " then beep: cls: goto 31 
gosub 32 
screen 2: svstem 

37 ifmdz=l then indz=0 goto 20 
if indno=l then indno=0 goto 20 
goto 2 1 

Point courant : depb G 

40 îf modeSo»curseur» then goto 42 
i f pp= 1 then gosub 45 

pseUx, y), pixel xor indpt 
x=x-c 

if x<0 then x=0 
44 if pp=l then 46 
pixel=point(x,y) 
pset( x.y). pixel xor 1 
indpt =0: goto 20 

Point courant ; dépl. H/G 

41 il mode$o»curseur» then 43 
if pp— 1 then gosub 45 
pset(x,y) ç pixcl xor indpt 
x=x-c: y=y-c 

if x<0 then x=0 
if y<0 then v-0 
goto 44 

^ îj|iS|iS|î Point courant : dépl. H/D 
51 if mode$o»eurscur» then 53 
if pp-l then gosub 45 
pset(x,yhpîxel xor indpt 
x-x+c: y-y-e 
if x>239 then x=239 
if y<() then y=0 
goto 44 

***** Point courant : dépl. B/D 

61 if mode$o»curseup> then 63 

if pp= I then gosub 45 

pset(x,y), pixel xor indpt 

x=x+c: y-y+c 

if x>239 then x=239 

if v>63 then v=63 
■■■ 

soto 44 

■t 

***** Point courant : dépl. B/G 
71 if mode$<>»curseur» then 73 
if pp= I then gosub 45 
pset(x,y), pixel xor îndpr 
x-x-c: v=v+c 

u ■ 

if x<0 then x={) 
if y>63 then v=63 

b r - 

coto 44 
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PDRAW POUR PORTFOLIO 


43 if mode$=>> gomme» then psetU.yhO 
x-x-c: v=v-c 
if x<() then x=0 
if V<0 then \-0 

V J 

gosuh 47 goto 20 

53 Ü modeS- «gomme» then pset(x,y),0 
x=x+c: v— y-c 
if x>239 then x=239 
if y<0 then y=0 
gosub 47 goto 20 

63 if mode$=»goniinc» then psei.(x.y),0 
x-x-ec: v-v+c 

w i 

il x>239 then x-239 

if v>63 then v— 63 
■ *■ 

gosub 47 goto 20 

73 h mode$=»gomme» then pset(x,y),0 
x=x-c: y=y+c 
if x<0 then x=0 
if y>63 then y- 63 
gosub 47 goto 20 

45 pset(x- f ,y- i },pixel 1 
pset(x,y). pixel 
psetfx- Ly+I ),pixcl2 
pset(x+l,y-l),pixel3 
pset(x+l,y+l ),pixei4 
indpt=0: return 

46 pixel 1 =point( x- i ,y- 1 ) 
psetfx- 1 ,y- ! ), pixel 1 xor I 
pixel=point{x,y) 
psetfx, y ),pixel xor I 

pixel2=point(x-l,y + 1 ) 

psettx l.y+1 ).pixel2 xor I 
pixel3=poim(x+l,y-l) 
pset(x+î,y-l),pixe!3 xor ! 
pixe!4=point<x+l,y+l) 
pset(x+l,y+l ),pixe!4 xor 1 
goto 20 

I / il mode$=»goimne» then pset(x,y),l:goto 49 
psetfx, y ),pix3 

49 if polS--»l" then return 
psettx- i ,y),pix3: pset(x,y- 1 ),pix3 
pset(x-l,y-l),pix3 

il pol$=»2" lhen return 
psett x+ ! .y- 1 ),pi x 3 : pset ( x + 1 , y ) . p i x 3 
pset(x+ 1 ,y+ f Lpix3: pset<x,y+i ),pix3 
psetfx- 1 ,y+l),pix3 return 
' 1 ! 1 Point courant : dépi . D 

50 il rnode$o»eurseur» then goto 52 
il pp=l then gosub 45 
pset{x,y),pixel xor indpt 

x-x+c 

if x>239 then x=239 
goto 44 

4 ** :,; * p 0 i nl courant ; dépi, H 
60 iJ mûde$o»curseur» then goto 62 
ifpp=l then gosub 45 

p se t ( x , y ) , pix e 3 x or i n d p t 
y-y “G 

il V<0 then v=() 
goto 44 

"**** Point courant : dépi, B 
70 if mode$o»curseur» then goto 72 
il pp= i then gosub 45 
pseKx.yXpixcl xor indpt 
v-v+c 

J 

if y >63 then y -63 
goto 44 

42 il mode$=»gomme» then psetfx, y).0 

X-X-C 

if x<0 then x— 0 
gosub 47 goto 20 

52 il modeS= «gomme» then psetfx, y),0 


x— x+c 

if x>239 then x-239 
gosub 47 goto 20 

62 il mode$=»gomme» then pset(x,y),0 
v-y-c 

if y<() then y=0 
gosub 47 goto 20 

/2 h mode$=»gornme» then psetfx, y),() 
y=y+c 

if y >63 then y=63 
gosuh 47 goto 20 

Mn i! pp=l then swap pp,qq: gosuh 23 
gosub 35: gosub 88: return 
hX x2=x: y2=y: /l=x j; z2=yl: z3=x2: z4=y2 return 

85 cliek: indl'-0: indd=0: indis=0: n=() 
il rnode$=»gomme» then solo 99 
83 /$=inkey$ : if /.$=»» then goto 83 
in ode$= »cu rseu r»: x=/3: y-/4 

il z$— »z» then pixels): pgload fîtcmpS goto 20 
if inds= I then inds=0 aS=z$ goto 2 ! 

il indlm/-l then mdfmz=0:pixel=() else pixel=l 
a$=z$ goto 2 1 

i **' 1î * Remplissage Trames 
82 if pp=l then swap pp,qq: gosub 23 
gosub 35: x 1 =x :y 1 —y 
gosub 88: gosuh 300 

n=<>: indnm=0: indt=0: indu=0: indal=0 
i ndg=0 

click: goto 83 

**** Lire une image sur disque 

90 print « ***** PDRAW Lecture image « 
print « « 

inpiit « * Nom de Limage : «,fïr$ : screen 4 

if fii$=»> then pgload fitempS goto 20 
1=1 

pgload firS: filec$=fir$ 
gosub 1 3 goto 28 

***** Sauvegarder une image sur disque 

91 print « ***** PDRAW - Sauvegarde image « 
print « « 

input « :: Nom de l’image : «,fi\v$ 

tf f iw$=»=» then screen 4: pgload fitempS goto 20 

0 fîw$<>»» then fiwa$=fiw$:gosub 32 goto 20 
fïw$=liwa$ 

il I i wS— » 1 1 lhen beep: cls: goto 9 1 
gosuh 32 goto 20 
99 mode$= »c u rseur» 
pst=4: pse— I 
gosuh 93: goto 20 
93 x=-/3: v-/,4; pixel=0 
psetfx, y), I 

gosuh 27: indfmz=h n=0 
return 

'**** Fonction TRAIT 

'**** r ' ait : horizt>ntal/vertical/oblique=45° 

10!) il indd=U lhen beep; goto 20 
gosub 80 

h' x I =x2 and y l=v2 then beep: goto 20 
nb=val(pol$): aa=0: pix=0 
if x 1 <x2 and y I =y2 then 1 0 1 
if x I >x2 and y I =y2 then swap x I ,x2 goto I () ] 
il xl=x2 and y I <y2 then 103 

il x !=x2 and yl>y2 then swap yl,y2 goto 103 
x=x2-xl : y— y 2 -y I 
a=abs(x): b=abs(y) 
if a=h then 105 else goto 1 1 1 
101 for xx=x 1 to x2 

il indis=l then pix=point(xx,y 1+aa) 
psetfxx.y i +aa),pst xor pix 


if nh— 1 then 85 

il nb=2 then aa=-l: nb=l goto 101 
aa=l : nb=2 goto 101 
103 for yy=y 1 to y 2 

il indi s= 1 tiieri pix-point(x l+aa.yy) 
psett x ! +aa,yy),pst xor pix 


next y y 

if nb=l then 85 

h rib=2 lhen aa=-l : nh=l goto 103 
aa= I : nb=2 goto Î03 

1 05 if x I <x2 and y 1 >y2 then swap x I ,x2: swap y I .y 2 
goto 110 

il xl<x2 and y 1 <y2 then swap x Lx2: swap vl \0 
goto 109 " 

if x 1 >X2 and y ! >y2 then 1 09 
110 yy-0 

for xx=x2 to x I 

il indis=l lhen pix=point(xx+aa.y2-yy) 
psett xx+aa,y2-yy),pst xor pix 
incr(vv) 

■r 1 

next xx 

ifnb=l then 85 

ît nb=2 lhen aa=l : n b=2 1 :decr(x I ) goto 1 10 
il nb=21 then aa=- 1 : nb= I : decr(y2) 
:incr(x2):incr{x I ) goto 1 10 
il nb=3 then aa= i : nb=3 1 :decrfx 1 ) goto 1 10 
if nb=31 then aa=-l: nb=32:decr(y2) 
:incr(x2):incr{ x 1 ) goto MO 

if nb=32 then aa=2 : nb=33:x l=x I -2:încr(y2): 
decrtx2):goto MO 

aa=- 2 :nb=l:y 2 =y 2 - 2 :x 2 =x 2 + 2 :xl=x 1+2 goto i 10 

1 09 vv=() 

for xx=\2 to xl 

ir indis=i then pix=poinl(xx+aa,y2+yy) 

P s g [ ( x x + a a , y 2. +y y ).pst x or p i x 

incr(w) 

■■ ** ■ 

next xx 

ifnb=t then 85 

il nb=2 then aa=l : nb=21:decr(xl) goto 109 

il nb=2l then aa=- 1 : nb=l 

:incrfy2):incr(x2):incr(x I ) goto 109 
il nb-3 then aa=l : nb=3Ldecr(xi ) goto 109 
ü nb=o ; lhen aa=-l : nb=32:incr(y2):mcr(x2):incr(x l ) 
goto 109 

if nb-32 then aa=2 : nb=33:xl=x 1-2: 
decr(y2 ):decrfx2) goto 109 

aa=-2: nb=l: y2=y2+2: x2=x2+2: xl=xI+2 -oto 
109 

***** Trait : ohliqueo45° 

111 fint=0:inda=0:pix=0 

x=x2-x 1 :y=y2-y I 

it x<0 then swap x 1 ,x2:swap y Ly2 goto 1 1 1 
A=abs(x):B=abs(y) 
if y<0 then goto ! 1 2 
il A>B then goto 1 1 3 

swap A,B:swap xl.yl :swap x2,y2:indsw= I goto 1 1 3 

112 if A<B then inda= 1 :Q=B\A:Q [ =Q;R=B- 
(Q*A):gosub 150 goto 115 

0=A\B:Q1=Q:R=A-(Q*B): gosub 150 
114 gosub 180 :gosub 130 
if fïnt=l then 85 

it QloO lhen incrfxl} goto ) 14 

Qi=Q 

if indext=l then goto 125 

I _6 if y 1 =y2 then inerfx i ) goto 103 else decr 
(y I ):incr(x 1 ) goto 1 14 

1 13 Q = A \B :Q 1 =Q;R= A -(Q * B ) : gosub 150 
122 if indsw=l then gosub 181 else gosub 180 

gosub 130 

if fint= I then 85 

il Q ]<>() then inerfx I ) goto 122 

hCT 1 

Qi=Q 

il index:— 1 then goto 145 
146 if y 1 =y 2 then inerfx 1 } goto 122 
incrfyl ): incrfxl) goto 122 
145 gosub 170 

if fint=l then 85 else goto 146 
125 gosub 170 

if fint=i then 85 else goto 126 
1 15 gosub 180: gosub 130 
if finr= ! then 85 

i l Q I <>() then deerfy I j goto i 1 5 
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Q 1 =Q 

ifindext=l then goto 135 
1 36 il x 1 -x2 then deer( y J ) goto 1 1 5 
mertx 1 ): decr(y I ) golo I I 3 
135 gosub 170 

if fint=l then 85 else goto 136 

■£7 

E 30 if x lox2 îh en decr(Q 1 ) return 
if y 1 <>y2 then deer(Q I ) return 
fint= I : inds vv=0 
x=/3: y-/ 4: return 


PDRAW POUR PORTFOLIO 


p ri ni « « sy— y2+sv ^ellipse 

j npi.it « * 1 rame (o/n) : v.repS x^.sx: y-s y: pix3=psc 

il rep$=»o» then golo 305 goxun 4 / 

inpul « :î: Ira me (o/n) : «.repi s\ l=sx: sy I— sy 

il rep$^»o» then mdnrn-l goto 305 next ^ K 4a 


inpul « 14 I rame (o/n J ; ^repS 

if rep$=»o» then iiulu-1 goto 305 
inpul « * Trame IC! (o/n) : «,rep$ 
if repS-»o» then indnm-l: iudl=l goto 305 
inpul « * Trame ::::: (o/n i ; «j’epS 
if rep5->a>> then indg= 1 : indt= I : indmn- i goto 
inpul « Li: Trame aléal (n/n) ; «j*ep$ 
ifrepS=»o» then indal-1 goto 305 
sereen f: pgload l’ilempS 


relum 

402 if y2<y I then dep=270:\ 2=y I goto 403 
dep=9Ü:y2— y I golo 403 
404 if indd-E) then beep: goto 20 
gosub 80 

il \ 1 — \ .2 and y I =y — then beep: mdd=0: goto 20 
angle- 180: ellipse=l; reso=8 
gosub 35: sereen 7 

i 

pii ni * î|îî|iî|Cii; PDRAW - Fonction ARC « 


^ I rait : calcul des extensions 

150 imiext=0:D=2 D— intervalle entre 2 extensions 
it R=() then return L R2=reste apres I ères extensions 

151 if inda=() then Q2=B\D:R2=B-(D*Q2) else 
Q2= A V D : R 2- A ( D :i Q 2 ) 

if Q2=0 then relum 'Q2-nb de 1ère extensions 
Q 3 — R\Q 2 : Q4 — Q 3 * Q 3 - n b p i x e I s 1 e r e extension 
if Q3<1 then incr(D)goio 151 
R3=R-(Q2*Q3) 'R3=nb île 2e me s extensions 
indexai : D l=D: return 
***** Trait : éxecution des extensions 
170 decr(D) 
if DoO then return 


inds-l : return 

305 sereen 4; pgload fitemp$ 
a ~\: b-y : psn=l : pix=0 
p E = 1 : p2=0: psml-1: psm2=0 
nos u b 30 1 

i.. 

302 if indi-0 then swap psm Lpsm2 
dee r( b ) 

if indu- i then s wap pLp2: psn=pl 
il b<0 bien golo 3 1 1 

c. 

pix=poiiH(a î b) 

it pix = l then goto 3 I I. 

il indg-0 then gosub 301 coin 302 

deer(b) 


prmt « « 

inpul « * Valeur de V angle : «jepS 

i f r e pSo » » l h e n a n g 1 e - v a I ( re p $ ) 

angle 1 =angle:gosub 4 I 2: gosu 

4( )5 : i ndd-ü:n=ü: goto 85 

410 if indd-0 then beep: goto 20 

gosub 80 
*■_ 

if x l=x2 and y ! -y 2 then beep: indd=0: goto 20 
angle=36(): ellipse— 0.5: reso=8 
gosub 35: sereen 7 gosub 412 

h- K— 

gosub 405: mdd-0: n-(): goto 85 

s_ 

412 if a8-»a» then 4 1 3 

p ri lit * ***** PDRAW - Fonction O VAL « 


D-D I 


if b<() then goto 3 ! I 


171 if indaoO then deerfY \ >: gosub 180 golo 1 72 
inerfX l ) 

il indsw-1 then gosub 18! else gosub 180 

172 deer(Q3 ) 

if Q3o{) then goto 1 7 1 
if R3<>0 lhen goto 174 
175 Q3-Q4: deer(Q2) 
if Q2<>0 then return 
indexî=() 


return 


pix=poinU a, b) 

if pix=0 lhen gosub 301 goto 302 
3 I 1 a-x; h=y: pi ~ I : p2-0 
psm 1 = 1 : psm2=0 

304 il iudt— 0 then s wap psm I .psm 2 
iner(b) 

if indu— l then swap pl,p2: psn=pl 
il b >6 3 then return 
pix=point(a 7 b) 
il pix= I then return 


prmt v< w 

4 1 3 i n p u t «. * Va \ eu r de l’ellipse ( . U>3 ) : « je pS 
if rep $=•■>» then return 
eElipse=\ al(rep$ } 
il ellipse>2 tlien reso=20 : return 
ii ellipse>L2 tlien reso-14: return 
return 


' ;i ’*** Transfert d'image 
700 if i ndd =0 then beep: goto 20 
if \<\ I or ycy 1 then beep; goto 20 
x3-x: v3=v: indf=î goto 20 

V -a*' ^ ' 


! 74 if indpass= 0 tli en indpass-1 goto 175 
indpass=0: decr(R3) 

if indaoü then deer(y I ): gosub 1 80 goto 175 
incr(x. 1 ) 


if indsw=l then gosub 181 goto 175 else gosub 

**_- L. 

S 80 goto 1 75 


'**** Irait : traçage oblique<>45 
I 80 i T indis— ! then pix=point(xl ,y 1 ) 
if nb= 1 then psel(x I ,v I ),pst xor pix return 
x=x 1 : y -y 1 : pix3=pxt 
gosub 47 return 


181 if indis= 1 then pix=pomtiy 1 t x I ) 

if nb= I then pseuy 1 ,x î Tpst xor pix return 
x=y ! : y=x I : pix3=pst 
gosub 47 return 


' *' * * i sanction QU A DRU ATER E 
200 if i ndd— 0 then beep: golo 20 
gosub 80 


if xl=x2 and y I — y2 tlien beep: goto 20 
if x I >x2 then swap x l ,x2 
îf y 3 >y2 then swap yLy2 
pix— 0: nb=val(pol$)-l 

if nb=2 then deerfx I ):decr{y I ):iner(x2):mer(y2) 
for aa=() to nb 


for xx=x l+aa to x2-aa 
If ïndis=l then pix=pomt(xx.v 1 +aa) 
pseli xx,y S +aa),psl xor pix 
if indis=l lhen pix=point(xx,y2-aa) 
pset(x\ 7 y2-aa).pst xor pix 
next xx 


Ü’ indg— 0 Lhen gosnh 301 goto 304 

*■- 4 - 

i ner( b) 

if t»03 then return 
pix=:poinUa,b) 

if pix =( ) (h e n g o s 1 1 b 3 01 g o t o 3 ( )4 
return 

301 nl=psm2: n2=psm I 
303 if indnm-l lhen swap n En2; psn-n I 
if indul= I then psn=rand(2) 
pset(a4>).psn; a=a- 1 
if a<0 then goto 3 1 0 

s. 

pix=point(a,b) 

i f pix=0 then g on * 303 

3 I 0 a=x: n 1 =psm 1 : n2-psm2 
306 inc r(a) 

it a>239 lhen a=x: return 

ii indnm=! lhen swap ni. n2: psn=nl 
il indal- 1 then psn=rand(2) 
pix=point(a,bï 

if pix=() lhen pseUa.b).psn goto 306 
a-x: return 

1 * * * * 1 à >nc 1 1 on s A RC 7 CE R C I . F, C ) VA I _.E 

400 if mdd=0 bien beep: goto 20 

gosub 80 


if xl=x2 antl yl— y2 then beep: indd— 0: g oto 20 

angle=360: ellipse- I : reso=8 

angle I -anale: gosub 401: indd=0: n=0: goto 85 

•n- k_ c 

405 sereen 4: pgload fiiempS 

40! if xl-x2 then R=ahs(y2-v! ):x2-xl+R goto 402 

mf ■i T _- 

R=ahs(x2-x i ) 


70] i f i n d I - 0 t h e n b e e p : g*. > t o 2 ( ) 

if pp=d then swap pp.qq gosub 23 

gosub 88: indli-l: ehain fichdivS 

* î|îî|îîit3 ^ î Effacement d une /.one 

800 if indd-0 then beep: goto 20 

gosub 88 
■_ 

if x2=xl and y .2— y 1 then beep: indd=0: goto 20 
gosub 22: gosub 35 
if x 1 :>x 2 then swap x Ex 2 
ü y l >y 2 then sw ap y î ,y2 
for y\ =) 1 to y 2 
foi 1 xx=x I to x2 
pself xx,yy)3) 
next xx 
next yy 
gosub 93 
goto 85 

Inversion video sur place 
900 if indd-0 then beep: goto 20 
gosub 88 

il x2— x 1 and y2=y 1 then beep: indd=(): goto 20 
gosub 22: gosub 35 

î-.-- L_ 

if x i > x 2 then swap x Lx2 
il' y I >> 2 tlien swap y Cv2 
for y y =y I to y 2 
l'or xx- xl iox7. 
pi\=poinl(xx,yy ) 
pset(xx,yy),pix xor E 
next xx 
next yy 


(br vv=v 1 -r î -raa to v2- 1 -aa 

■«r‘ V «■' i. 

if indis- 1 then pix=point(x l+aa,yy) 
pset(xl+aa,yy),psi xor pix 
if‘mdis==l then pix=point(x2-aa,yy) 
pset( x 2- aay y ), ps L xor p i x 
next y y 
next aa 

pix-0: goto 85 

***** Fonction Remplissage trames 
300 sereen 7 

print « ***** PDR AW - Trames * 


if x 2< x 1 tlien dep=I80:x2=x ! + R else dep=0 
403 ang~angle: ell-ellipse 
an— dep+angle 
Niv-360/R/reso 


gosub 9 5 

c.. 

ifpix=! then inclfm/=() 
goto 85 
100! return 


lor ihela=dep t<^ arr siep siv 
a i ig. [ e= 1 1 1 et a * 34 415/180 
sx=R : - : cos(angle ) 
sv=R*sin( angle) 

■wf H- . 


002 return 
4)04 return 
4)05 return 
4)03 return 


sx-x2+sx™ R 
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TEST MEMOIRE POUR PORTFOLIO 

par G.C 


Ce programme écrit en assembleur 8086 permet de tester les cartes mémoire RAM pour Portfolio 
jusqu’à ï Megaoctects. Amis programmeurs, accrochez vos ceintures !!! 


l a mémoire d'une carte PORTFOLIO (support A: ou B:) fuit 
partie intégrante de l'espace adressable du 80C88. de OCOOOOI 1 
àODFFFFH soit un maximun de 128Knctets. 

I n artifice appelé pagination permet de dépasser cette taille fa- 
tidique, l'écriture d'un zéro dans le registre de page permet 
d'adresser les 128 premiers Koctets , récriture d'une valeur N 
permet d'atteindre les N x 128 Koctets suivants. 

Ce registre de page fait aussi partie de l’espace mémoire de la 
carte (OCOOOAII), ce qui rend inutilisable l'octet à cette adresse 
dans toutes les pages. 

Comme il n est pas possible de tester toutes les configurations 
d'octets en mémoire, deux types de tests peuvent être utilisés 
avec de bon résultats : 

le 0 ou le I baladeur, et îe damier bouclant. 

La ligure ci-dessous donne la configuration des bits sur les oc- 
tets en mémoire 



1 baladeur 

0 baladeur 

damier bouclant 

N 

00000000 

11111111 

01010101 

N+J 

00000001 

un iiio 

1 0 1 0 1 0 1 0 

N+2 

00000010 

ni moi 

n i ni u i ni 

N +3 

00000100 

union 

10101010 

N 4-4 

0000 1 000 

nnoui 

01010101 

N +5 

00010000 

înoiui 


N+6 

00100000 

iiimiii 


N +7 

0 1 000000 

101 1 1 1 U 


N +8 

1 0000000 

ommi 


N +9 

00000000 

muni 



On remarque tout de suite que le motif des 0 ou des 1 baladeui 
se reproduit tous les 9 octets tandis que le damier ne possèd 
que deux valeurs possibles ; (85 H et OAAH). 

Dans l'exemple ci-dessus la valeur de départ pour l'octet X e> 
de OU IL OLFH ou 55H selon le type de test, rien n empêche de 
changer à chaque passe. Ainsi le test du 0 ou du 1 baladeur s 
fait en 9 passes sur toute la mémoire et le damier bouclant en 
passes. I. interlace utilisateur de ce programme est effectuée ave 
4 menus différents : 

- le menu principal ou est demandé le type de carte RAM 
tester. 

- F' menu secondaire ou est demandé le type de test à effectue 

- le menu «Test en cours» ou est affiché le compteur de cycle 
de test (en effet tes tests bouclent indéfiniment sur eux mêmes 

- le menu de faute ou sont affichés le compteur île cycles. ! 
page et l'adresse en faute, la valeur écrite (et attendue) avec ! 
valeur lue. 

La touche ESCape permet le retour au menu précédent, La tou 
che Return ou Enter permet de continuer le test après un ait 
ch âge de faute mémoire. 

Le programme est constitué de plusieurs grands segments : 

- E initialisation et la saisie des informations nécessaires. 

- Le test du 0 baladeur. 

- Le test du S baladeur. 

- Le test du damier bouclant. 





(fC&L 


- i.e uuuemeni ue un ue cycle : amenage compteur, re bouclage 
sur Se cycle suivant 

- L'affichage des fautes mémoire 

- Les routines d'affichage écran et d'attente du clavier 
Chaque passe parmi 2 ou 9 .selon le lest choisi, est décomposé 
en deux parties : 

1 but d’abord la carte est initialisée complètement avec le mo- 
tif de test puis ce même motif est vérifié sur tous les octets, la 
vérification est ligée sur ! adresse eu faute qui est alors affi- 
chée sur l'écran. La frappe de la touche Return ou Enter per- 
met de relancer le test sur l'octet suivant. 

MISE EN OEUVRE : 

Après avoir saisi le texte source à l’aide d'un éditeur comme 
EDI JN ou EDIT du MS-DOS ou encore ED1TOR du DR DOS, 
sauvegarder ce source dans un fichier nommé TEST. ASM. 
Avec 1 ASM (e) Borland, assemblez-le comme suit : 

1 ASM /ML TES I... : Appel de I Assembleur 80x86 

1 LIN K /T TES1... : Appel de l'éditeur de liens 

Avec MASM (c) Microsoft, assembler le comme suit 
MASM /ML TEST... : Appel de l' Assembleur 80x86 

El XK 1 EST,., : Appel de l'éditeur de liens 

EXK2B1N lESTEXE IEST.COM : Transformation en.COM 
Le résultat de ces opérations est un fichier exécutable 
( ILS Ï.C’OM) qui devra être chargé sur le disque virtuel C: du 
PO R FOLIO avant d'être lancé. 

Effectivement ce test est DESTRUCTIF (DESTRUCTIF) 
pour la carte à tester en A: ou B: . tous vos précieux fichiers 
présent sur ce support devront être sauvegardés avant de 
lancer ce test. 



1 J AŒ 

i . > 

RC 

1 ■ Ql 

L)DII 

LS( '.ipe 

h CH 

Itil 1 

Ml: NC 

LABEL 

BYrr: 
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TEST MEMOIRE POUR 


:«vM»:«>»kw:w:v:w: i 1 ■ 


ÏEGMENT AT 0B000H 
OR G 0 

5CRMEM LABEL WORD 

SCREEN ENDS 
CCM LABEL BYTE 
CCM 1 ST SEGMENT AT GCOOOH 
ORG 0 

STAR'n LABEL BYTE 
ORG î 0 

PageReg LABEL BYTE 
CCM 1 ST ENDS 

CC M 2 N D S LG M f ÏNT AT 0 DÜOÜÏ ! 

ORG 0 

SI A RT 2 LABEL BYTE 
CCM2ND ENDS 

ScgS i ze EQ U 1 (X )00 1 1 AN D ÜFFFEi î 

SEGMENT 

ASS U M E CS: XSEG , DS : XS EG 

ORG 0 1 00 H 
AN, 0 
6 1 H 

AX t (l4 SI IL 8)+0 

61 H 

[SCRMODKDL 
AX,( 14 SHL 8)4-1 
DE ,0000000 1 B 
61 H 


; A dresse mémoire écran 


; Zone CCM de 128 K adressable 
; 1 er tranche de 64 K 
; Régi sire sélection de page de 1 28 K 


;2em tranche de 64 K 


65536 octets par tranche de 64 K 


XSEG 


START: MOV 
INT 


MOV 

INT 

MOV 

MOV 

MOV 

INT 

CLD 


; Se r v icc Initiali za t io n 

;GET scrccn mode 

; Sauvegarde du mode 

:SET sc reen mode 

; Format d’écran type PORTFOLIO 


AFMEN 1 : 


;lnere mental ion 

:DS:SI sur adresse 1er menu 


CALE 

MOV 

MOV 

INT 

MOV 

INT 

MOV 

MOV 

MOV 

ÏNT 


GETPAG; 


;Posiiionnement du curseur 
;Position du curseur 

;GLT cursot mode 

; Sauve garde du mode 

;SET cursor mode 

;Mode BLOC K pour ce dernier 

; Attente au clavier 


[ NT 
CMP 

JE 


JC 

CMP 

JB 


BADPAG: 


INT 
J MP 


RLABRT: 
PAG OK: 


MOV 


AFM EN 2: 

CALE 

MOV 

MOV 

INT 

GETTST: MOV 
INT 
CMP 
JE 


MOV SI, OFFSET Menu! 

AFM EN LJ 
AI 1,2 

DX,(6 SHL 8)+34 
1 01 1 

AX,( ! 5 SHL 8)4-0 

61 H 

[CURMODhBL 
ÀX,( 1 5 SHL 8)+ 1 
BL,2 
61 H 

MOV ÀH,0 

i 6 H 

AUESCape 
RLABRT’ 

ALS I r 
BADPAG 
AL ,4 
PAG_OK 

MOV AX42 I SHL 8)+l émission dTm beep 

61 H 

GETPAG 
J MP ABORT 

MOV CL, AL 
| NbPAGEj, I 
lNbPAGL|,CL 

MOV SLOFFSET Menu 2 
AFMEN ü 


;Test sur la réponse numérique 


; Calcul du Nombre de pages 


;DS:S1 sur adresse 2 cm menu 


;Posi bonnement du curseur 
;Position du curseur 

; Attente au clavier 


; r l'est sur la réponse numérique 


BADTST: 


JC 

C 
JBE 

INT 


tEmission d’un beep 


TST_QK:MÛV 

MOV 

CALL 

TSTCCM: 

MOV 

INT 

MOV 

MOV 

MOV 

SHL 

j M P 

TABJMP: DW 
DW 


AH, 2 

DX,(6 SH 1,8)4 3 4 

1 01 1 

AH,0 
16H 

AL.ESCape 
AFMEN 1 

al; o 1 

BADTST 
AL, 3 
TST OK 

MOV AX,(21 SHl, 8)4-1 

6 H I 

GETTST 
I NoTESTfAL 
[COUNT],G 
AFMEN 3 

MOV ÀX,( 36 SHL 8)+ 1 ;SET ROM/CCM State 

DX,(1 SUT 8)4- 1 
61 H 

|RSTATL],DX 
BL,[NoTESTl 
RH,0 
BX, I 

WORD PTR j OFFSET TA B J M P+ B X | 

OFFSET B ALADI ;Test du 1 baladeur 

OFFSET BALÂD0 ;Test du 0 baladeur 


;Coiïipteur de passes à 0 
; Affichage menu 3 avec compteur a 0 


; Valida lion permanente du CCM À: 
; Sauve garde état précédent 


ORTFOLIO... TEST MEMOIRE 

DW 

OFFSET B AL ADI 

; Enchaînement tics 2 tests 

DW 

OFFSET DAMIER 

:Test du damier bouclant 

B ALADI: 

MOV DL, 1 1 I1111IB 

: Pas de 0 baladeur 

TSCCM 1 : 

MOV DFLO 

; Numéro de page j 0 

MOV 

ALJ)L 

; Référence de départ 

WR 1 PAG: 

MOV Di, CCM 1 ST 


MOV 

ES, DI 

; Adresse 1er tranche de 64 K 

ASSUME ES: CCM 1 ST 


MOV 

D 1, OFFSET STA RT 1 


MOV 

ES: [ PageReg |. DH 

;S élection de la page 

WR AL 10: 

STOS CCM 


CMP 

ALJ II 111 MB 

;CF à 0 si aucun bit à 0, si non CF à 1 

RCL 

AL, 1 

; Entrée du nouveau bit par la droite 

CMP 

D LOFES El PageReg 

; A dre s se du registre de page 

INF 

WRFTI0 


INC 

DI 

;Saut de cette adresse 

J MP 

WR AL 10 


WRFT’10: 

CMP DLSegSi/.e 

fl'esi si fin de 1er tranche 

JNE 

WR AL 10 


MOV 

DLCCM2ND 


MOV 

ES, DI 

; Adresse 2em tranche de 64K 

ASSUME ES:CCM2ND 


MOV 

DL OFFSET START2 


WR AL U: 

STOS CCM 


CMP 

ALJ 1111 1MB 

;CF à 0 si aucun bit à 0, sinon CF à 1 

RCL 

ALT 

: Entrée du nouveau bit pat la droite 

CMP 

DRSegSize 

:Test si fin de 2e m tranche 

JNE 

WR AL II 


INC 

DH 

;Changcmem de page 

CMP 

DFL[ N b PAGE) 


JB 

WR 1 PAG 


MOV 

DH.O 

; Numéro de page à 0 

MOV 

AL.DL 

Récupération de Létal, de départ 

CPI PAG: MOV 

DLCCM1ST 


MOV 

FS, DI 

; A vire s se t e r t ra 1 1 c he d e 64 K 

ASSUME ES:CCM1ST 


MOV 

D LOFES ET STA RT 1 


MOV 

ES:[ PageReg], DH 

;Sélection de la page 

CPAL 10: SC AS 

CCM 


JF 

CPT B 1 0 


CAI .1 

DE FM EM 

; Affichage du défaut 

JNC 

CPTB10 


J M P 

AFM EN 2 


CPTB10: CMP 

ALJ 11 1 1 1 1 1 B 

;CF à 0 si aucun bit à 0, sinon CF à l 

RCL 

ALJ 

; Entrée du nouveau bit par la droite 

CMP 

D LOFES LT PageReg 

; Adresse du registre de page 

JNE 

CPFTI0 


INC 

DI 

;Saut de cette adresse 

J MP 

CPA LU) 


CPU 1 0: CMP 

DI,SegSize 

;Tést si fin de lcr tranche 

JNE 

CPAL 10 


MOV 

DLCCM2ND 


MOV 

HS 141 

; Adresse 2em tranche de 64 K 

ASSUME ES:CCM2ND 


MOV 

DI, OFFSET START2 


CPAL11: SC AS 

CCM 


JE 

CPT B 1 1 


CALL 

DE FM EM 

; Affichage du défaut 

JNC 

C P JB J ! 


J MP 

A FM EN 2 


CP 1 B 1 1 : CMP 

ALJ 1 1 1 11 MB 

;CF a 0 si aucun bit à 0, si non CF à 1 

RCL 

AL, 1 

; Entrée du nouveau bit par la droite 

CMP 

DLSegSi/e 

J’esl si fin de 2e m tranche 

JNE 

CPAL1 i 


INC 

DH 

Changement de page 

CMP 

DHd N b PAG El 


JB 

CPI PAG 


CALL 

INCCNT 

: Incrément cl affichage du compteur 

CMP 

DLJ1111111B 

;CF à 0 si aucun bit a 0,sïnon CE à 1 

RCL 

DLJ 

: En t rée d u n o u v e au lut par lad ro 1 1 e 

CMP 

DL, 1 1 1 1 1 1 1 1 B 

;lc 0 a-t-il été baladé 1 sur tous les bits 

JNE 

RTCCM 1 


CMP 

[NoTLST|,2 

J’esl si double lest No 0 et 1 

JL 

BALAD0 

; Enchaîne nient des 2 tests 

J MP 

EN DT S T 


RTCCM 1 : 

J MP TSCCM 1 

; Relais avec saut NFAR 

BALADÜ: 

MOV DL, 00000000 El 

Ras de 1 baladeur 

TSCCMQ: 

MOV DH,0 

; Numéro de page à 0 

MOV 

AL,DL 

: Référence de départ 

WR OPA G: 

MOV DLCCM1ST 


MOV 

FS, DI 

; A d re s se 1 e r t ra n c 1 îe de 64 K 

AS S U 

MF FS:CCMLST 


MOV 

D LO FFS ET START t 

* 
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TEST MEMOIRE POUR PORTFOLIO... TEST MEMOIRE 


. . .■ ■ v ■ v.v.v.yw.w.v.v.v v . • 


«wmommmmmmwow 


WRSHÜO 


X I toujours :i 0, ZF à ] si aucun bil à I 


WRSHOO: 

RCL AL, 1 

; Entrée du nouveau hit par 3 a droite 

CMP 

DI, OH •SET PagcReg 

; Adresse du registre de page 

J NE 

WRFTOO 


1 NC 

DI 

;Saui de cette ad te s se 

I M P 

WR AUX) 


WRFTOO: 

CMP DFSegSize 

; Lest si tin de 1 er tranche 

INF 

WRALOO 


MOV 

DI, CCM 2 ND 


MOV 

ES, DI 

; Adresse 2e m tranche de 64 K 

ASS U 

ME ES:CCM2ND 


MOV 

DI .OFFSET STAR 12 


WR A LOI : 

MOS CCM 


CMP 

AL.OOOOOOOOB 

D’est si le bil est disparu 

J NE 

WRSH01 

;( P toujours à 0, ZFà 1 si aucun hit à 

STC 

W RS BOL 

RCL AL, 1 

; Entrée du nouveau bit par la droite 

CMP 


DLSegSi/.e 

:Test si fin de 2e m tranche 

J NE 

WR A LO 1 


INC 

DII 

;Changement de page 

CMP 

DH,[ N b PAGE] 


JB 

W RO PAG 


MOV 

DI 1,0 

; Numéro de page a 0 

MOV 

AL, DI 

; Réc upc ration de Létal de départ 

CPÜPÀG: MOV 

DLCCM1ST 


MOV 

ES, DI 

: A dre ssc lert ra n c he de 64 K 

ASSUME ES: CCM 1 ST 


MOV 

DEOFFSET STARTI 


MOV 

ES:| PageRegf.DH 

;S élection de la page 

CPALOO: SCAS 

CCM 


JE 

CPTBOO 


CA LL 

DEFMEM 

; Affichage du défaut 

J NC 

CFIBOO 


J M P 

AFMEN2 


CP TROP: CMP 

AL.OOOOOOOOB 

;Test si le bit est disparu 

JNE 

CPSHOO 

:CF toujours à 0, ZF à 1 si aucun bu à 

SIC 

CPSH00: R CL 

ALJ 

: Entrée du nouveau hit par la droite 

CMP 

DJ, OFFSET PagcReg 

; Adresse du registre de page 

JNE 

CPFTOO 


INC 

DI 

;Saut de celle adresse 

J MP 

CPALOO 


CPFTÜO: CMP 

DfSegSi/e 

f ies! sj fin de 1er tranche 

JNL 

CPALOO 


MOV 

DLCCM2ND 


MOV 

ES, DI 

; Ad re s se 2e m 1 1 a ne h e de 64 K 

ASSUME ES:CCM2ND 


MOV 

DI. OFFSET START2 


CPA 1.0 1: SCAS 

CCM 


JE 

CPTBOI 


C A LL 

DEFMEM 

lAllichage du défaut 

J NC 

CPTBOI 


J MP 

AFMEN2 


CPTB01 : CMP 

AL.OOOOOOOOB 

; lest si le bit a disparu 

JNE 

CPS] 101 

:CP toujours à 0, ZF à l si aucim hit à 

STC 

CPSHOI: RCL 

ALJ 

; Entrée du nouveau bit par la droite 

CMP 

Dl.SegSiÆ 

fie st si fin de 2ème tranche 

JNE 

CPA LOI 


INC 

DH 

;Ch ange ment de page 

CMP 

DH.INbPAGEl 

jr 

CPOPAG 


CALL 

INCCNT 

incrément et affichage ducompleui 

CMP 

DL.OOOOÜOOOB 

fl est si le bil est disparu 

JNE 

SHI.DLO 

:(fb toujours à 0, ZF a 1 si aucun bit à 

STC 

SHI. DU); RCL 

DL, 1 

; En née du nouveau bit par la droite 

CMP 

DL.OOOOOOOOB 

: le 1 a-t-ii été baladé sur tous les bits 

JNE 

RTCCMO 


J MP 

ENDTST 


RTCCMO: 

J MP TSCCMO 

; Relais avec saut N HA R 

DAMIER: 

MOV DL.OIOIOIOIB 

: Dé part damier (55 H/OA Al 1 ) 

DA MTS T; 

MOV Di 1,0 

; Numéro de page a U 

MOV 

AL.DL 

; Référence de départ 

WR PA GO; 

MOV DI.CCM1ST 


MOV 

a S S LP 

ES, DI 

, 1 1 - 1 <s -('f' M ! «T 

; Adresse 1er tranche de 64 K 

MOV 

v * ■ - ■ zfJ V . j V 1 1 A 1 

DI, OFFSET START 1 


MOV 

ES:jPngeReg|,DH 

■Sélection de la nage 

W RD AMD: 

STOS CCM 

r c 

CM P 

DI. OFFSET PagcReg 

: A dre s se du registre de page 

JNE 

WRINVO 


IMF 

W RD A MO 

WRINVO; 

NOT AL 

CMP 

DLSegSi/e 

JNE 

WR DA MO 

MOV 

D1.CCM2ND 

MOV 

ES. DI 

AS SL MI 

i ES:CCM2ÎS 

MOV 

DI, OFFSET START2 

WR DAM f : 

STOS (.'CM 

NOT 

AL 

CMP 

Dl.SegSi/c 

JNF 

WR DAM! 

INC 

DH 

CM P 

DH,|NbPAGE| 

JB 

WRPAGÜ 

MOV 

DI 1,0 

MOV 

AL.D1. 

CPPAGO: MOV 

DI, CCM 1 ST 

MOV 

ES, DI 

ASSLIMI 

i ES:CCM 1 S 

MOV 

DI. OFFSET STARTI 

MOV 

ES:| Rage Reg|, DI 1 

C PDA MO: 

SCAS CCM 

JH 

CP_OKO 

CALL 

DEFMEM 

J NC 

CP_OKO 

JM P 

AFMEN2 

CPOKO: CMP 

DI, OFFSET PaseReg 

JNE 

CPINVO 

1 NC 

DI 

JM P 

CPDAMO 

CPINVO; NOT 

AL 

CMP 

DhSeuSi/e 

JNE 

CPDAMO 

MOV 

DI.CCM2ND 

MOV 

ES, DI 


[n version du damier 
d’est si fin de 1er tranche 


Adresse 2em tranche de 64 K 


; Inversion du damier 
; d’est si fin de 2e m tranche 

; Ch ange ment de page 


; Numéro de page a 0 
; R éc u pe rat i o n de l’état de d é pa rt 

; Adresse 1er tranche de 64 K 


;Séteciion de la page 


; Al fichage du défaut 


CPDAMI; 

JH 

CA LL 
J NC 
J M P 

CP O K I ; NOT 
CMP 


ASSUME ES:CCM2ND 

MOV DLOFFS ET START2 

SC AS CCM 


; Adresse du registre de page 
;Saut de cette adresse 

; l’est si fin de 1er tranche 

; Adresse 2e m tranche de 64 K 


; Affichage du défaut 


INC 

CMP 

JB 

CA LL 


JE 


; l’est si fin de 2e m tranche 
;Ch ange ment de page 

; Incrément et affichage du compteur 
:Le damier a t-il etc testé sur chaque octet ? 


RNDTST; 


MOV 

INT 

MOV 

INI 

MOV 

INT 

JZ 

MOV 


; V é ri f i c al i o n du cl a v i e r 


; Pr î se e n c o m p te d u c a rae l c re 


CM P 

JH 

NO B R K: 

RI, A FM 2: 
INCCNT: INC 
AFM EN 3: 

PUS II 

PU S H 

PUS H 

MOV 

CAL!. 

MOV 

MOV 

CA LL 

MOV 

MOV 

CAL! . 

MOV 

MOV 

CALL 

MOV 

MOV 

INT 


DEFMEM 
CP OKI 
A FM EN 2 
AL 

DfSegSize 
CPDAMI 
DH 

DHJNbPAGEj 
CP PACO 
INCCNT 
DL 

DL4JI 0 10101 B 
EN DT S T 
DA MTS T 

M O V A X J 36 S 1 1 L S )+ 1 ; Fo ne t ion S ET ROM/CC M State 

DXJRSIATE] :Récuperat ion état précédent 

6 n i 

A X j. 2 I S HL S ) + î : E m i s s i o n d 7 un bec p à c h aq ue p as se 
6 31! 

AI U 

1611 

NO BR K 
Al 1,0 
1 6H 
AL,I SCape 
R LA FM 2 

TSTCCM 
A FM EN 2 

K OIN I ! ; Incrément du nombre de passes 

BUSH AX ;Atîichage du menu 3 avec le compteur 

DX 

DS 

ES 

AL, B 4 TE Pi K [COIjNT+ 1 | ; Affichage du compteur de passes 
ASC L 

C S : | M e n u 3 + 2 06 1 . A I . 

Al .B VI K PT R [CO LJ NT] 

ASC_H 

CS : [ Menu 3+207 ] , AL 
AL. BYTE PT R [COU NT) 

ASC_ 1 . 

CS : | Men u 3+208 j , AL 
SI, OFFSET Menu 3 
AFM EN U 
AI L2 

DXA5 SHI. B )+ 1 0 

ion 


; A fi i c h âge octet m fé r i e u r d u c< > i n pte u r 


; DS : S I s u r ad re s s e 3e m menu 

: Positionnement du curseur 
: Posit ion du cu/seur 
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.! M P 


DEFMEM 


PUSH 


BEEP: 


TEST MEMOIRE POUR PORTFOLIO... TEST MEMOIRE 

AV VA AVA . . ■ 


RETOUR 
PUSH A X 
DX 


: .A 1 1 i eliag c d ' u n de faut i nenu 1 1 ce 


PUSH 

D) 

PUSH 

ES 

[ >EC 

D! 

MOV 

AIL AL 

PU SI 1 

AX 

MOV 

AL. BYTE PT R [COI 

CALE 

ASC J 

MOV 

CS:| VI et 1114+205 g AL 

MOV 

AL. BYTE PTR |COl 

CA LL 

ASC_H 

MOV 

CS:[Memi4+206|,ÀL 

MOV 

AL, BYTE PTR [COI 

CALI 

ASC. 1 . 

MC )V 

CS:|Menu4+207].AL 

MOV 

AL. Di i 

CAIH 

ASC L 

MOV 

CS:| Mcnti4+2 1 3 |,AL 

MOV 

AX,F.S 

MOV 

AU AH 

AND 

Ad 000 1 0000 B 

CA El . 

ASC_H 

Ml ) V 

L S:[ Menu4-f2 1 S|.AL 

MOV 

AX.DS 

VK )V 

AL, A H 

CALE, 

ASC H 

MOV 

CS;| Menu4+2 19], Al. 

MOV 

AL, A H 

CALE 

ANC 1 

M< )V 

CS:j Mcnu4+22Ü|,Aï . 

MOV 

AXJ >1 

CA LL 

ASC. H 

MOV 

CS:[Menu4+22] |.AL 

MC >V 

A X J > 1 

CALE 

ASC..L 

MOV 

C S ; | M e n u 4 + 2 2 2 [ , A t . 

POP 

AX 

C’AIT 

ASC H 

MOV 

CS:| Menu4+229|,ÂL 

MOV 

AL, A H 

CALE 

ASC E 

MOV 

CS : | Me nu4+230 1 . A L 

MOV 

AL ES:| DI] 

CAI L 

AS( _H 

MOV 

CS : | Memi4+233 |,AE. 

MOV 

AL.ES:| Dï| 

CAI 1 

ASC L 

MOV 

C S : [ M e n u 4+23 6 1 A 1 . 

MOV 

S LOFES ET Me nu 4 

CALE 

Al MENU 

MOV 

AI 1.2 

MOV 

DXjS S! IL S.s+O 

INT 

1 OH 

MOV 

Al LO 

INT 

!6H 

CMP 

AL. ES Cape 

J NE 

TESTE 

MOV 

AXA 36 S HL 8)+! 

MOV 

DX, [R STAT E| 

! NT 

6 Di 

SIC 

IM P 

RETOUR 

CMP 

AU RC 

JM 

BEEP 

MOV 

SI, OFFSET Mc nu 3 

CAI J , 

AFMENU 

MOV 

AH 2 

MOV 

DX,(5 S HL 81+32 

INT 

( ' f r* 

10H 

s i A. 

J MP 

RETOUR 

MOV 

AX.(21 SHL 8j+l 

[NT 

611] 

J MP 

WA1T K 
POP ES 

P< )P 

1)1 

POP 

l)X 

POP 

AX 

RET 

SI 1 R 

AL J 

S HR 

A 1 1 


[Sauvegarde réference ce nie 
[Affichage du compteur île passes 


[.AHiehage oetel inferieur du compteur 


; A flic h a go du N o de p u g e 


*Nc> de ti anche de 64 K 


; Afficha g e t. ic l e l eu pé rieur tic l'a d ] 'e s se 


‘Ai i tehage oeiet inférieur de l'adresse 


[Affichage de la donnée ccrile 


[Affichage de lu donnée lue 


‘1 )S:S1 sur adresse 4e m menu 

: Pus il ion ne ment du curseur 
.Position du curseur 

: Alterne au clavier 


[SET ROM/CCM siale 
; R ce u | )é r a t i l ) n é l a 1 p réc e de n l 


• 1 > S ; S 1 su r a d i v s s e \ ci " n i e ri \ i 

d Aïs il ion ne i nent du curseur 
Position du curseur 


[Emission d’un beep 


: Isolement quartei de uauohe 


SI IR 

Al .1 

SUR 

AI .. ! 

AS( L: AND 

A -H 

A DD 

AL. WH 

DA A 

A IX” 

AL. 401 1 

HAA 

RIT 

A BORE MOV 

AX.iO SI IL 8 )+ 7 : VI 

INT 

i 0H 

MOV 

AX.( 14 SI IL. S |+ 1 

VK )V 

DL.| SC'RMODI 

IN 1 

6111 

Ml ) Y 

AX.ilsSHl Si+I 

MOV 

BL.[Cl RMOD| 

INT 

61 H 

MOV 

AX. [76 SI 11 S 1+0 

INI 

2 1 H 

J MP 

ABORT 

AFMENU: 

MOV DI. SCREEN 

MOV 

ES. Di 

ASSUMï 

î ES: SCR Ll. N 

MC )V 

DI.OF'FSE 1 Si ’RMEM 

MOV 

A H. 000001 1 1 B 

MOV 

Ci 1.8 

A EM N 00: 

MOV CL. 46 

AL’MNO 1 : 

E l/W 

LODS MENU 

L’cnii i i • \ i 

.a i \ .m 

\ )EC 

M KM EM 
CL 

IN Z 

ATMNOl 

A DD 

1 )] .( d0 :j: 2 .!■ 

DEC 

CH 

JW 

A T VI N 00 

M( )\] 

AH. 1 8 

INT 

6 î H 

RET 

SCR MOI) 

LABEL BYTE 

DB 

■ i 

C l R MOI ) 

1 A B ET BYTE 


:C. on version H EX A/ASC 11 d’un cjuartet 


le \ idco du MDA pour effacer l’écran 


TT s créé n mode 
; R C c u pé ra lion format d ' éc n i n 

SI I cnrs or mode 
[Récupération du mode 


: Retour DOS avec ER R ORLEVEL-O 


drS:DI en début d” écran virtuel 
; Atlribut normal v ideo 
; No mbre de lignes sur P écran 
: N ombre de caractères par ligne 
: \ .oc t l i re rie c h au ne e a ni c 1 e rc d ans A L , 
[Ecriture du caractère cl de son attribut 
; A 1 1 i e ha ge dune 1 i grt e 

-Sam des 40 caractères non affichables 


.Screen Refresh 


DB 


[Sauvegarde du mode écran 
[Sauvegarde du ts pe de curseur 


N b RA GE 

LABEL 

DB 

BYTE 

■ t 

[Nombre de pages de 128 K 

Notes i 

l.ABFi 

DB 

BYTE 

■? 

[Numéro de lest a effectuer 

COI Nd 

LABEL 

DB 

WORD 

•> 

:( ompteur de passes 

ESTAI E 

LABEL 

DW 

WORD 

■ i 

[Etal espace mémoire ROM/CC 

Menu 1 

LABEL 

BV TE 



Menu 2 


Menu 


DB 
DB 
l )R 
DB 
DB 
DB 
DB 
DB 

LABEL 

DB 

DB 

DB 

DB 

1>B 

DB 

DB 

DR 

LABEL. 


-s 


f 


■ —A TEST curie mémoire multipares a— +’ 

+ — — + r 


"di 

carte 

1 28 K ; 

d i 2 i 

carte 

236 K -e 

■ i — 

: t M 

et trie 

5I2K ; 

d 1 4 

carte 

LM i 


i -, 


choix : 


' 4- - 


BYTE 


-4- 


+ 


L +— .A ! ESI carte mémoire niultipag.es a — + 

d + ' — + ! 

d fOï : 0 Baladeur I HSCape : 1er MENU 1' 

d ( I i : I Baladeur + — p 

d (2t : Te si S 0 & I I Entre/ voire 
d loi : I Limier 1 choi x : _ f 
*+ 


i ' 


BYTE 

1 + — 


M e m 1 4 


sSI li 


16 


DB 

DR 

DB 

DB 

DB 

DB 

DB 

LABEL 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

ENDS 

! ND 


"+ — V 1 h. S I carie mémoire multi pages a C 


; +- .... 

d I SC ape ; retour 2cm MENE 


-+ 


■■ ■ -4’ 


d C ’ :( K M U Tf èST m ém o i re en coins,. . 

2+ 

*+■ — 

BYTE 


I I 7 


— + r 




'+— A HAUTE carte mémoire mialiipages a — r' 




+ 


RD: 


i I 
y i 


■ ESt ape : MENE ou E.N \ L.R. : suite tesl i 
d! C i P:_ AD: I 

d4- 

STAR F 
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affichage graphique sur 

ATARI PORTFOLIO 

par Thierry BODIN 

gués routines en Assembleur. P ( est pourquoi nous allons étudier quel- 

Mais pas n'importe lesquelles ! Des roulines pour aérer le morte 
dlLl U U“ion U d t „°c U 'fT d ’ Un PiXC ’’ C " piC> d * «P***, traeeur 

Bref, une mine d’or pour les programmeurs ! 

Ainsi, vous serez paré pour nous faire un jeu graphique une démo 
’U une appliralion graphique car notre Portfolio en manque cruel 
en, en,. Vous remarquerez sans doute que certaines sülîës dTn 

su"/,; 0 ;^ rtPCtCn ‘ P ° Ur aVl>ir un « ain de li, «se non négligeable 
Pour une meilleure compréhension, des routines sont utilisées dans 

r2r 

Boite Ans Lettres (BAL, SCARFY. N’oubliez pas de valider vo^’ 
pseudo en créant une BAL ,e„ tapant -BAL e, ENVOI) pour «m- 
je puisse vous repondre. Il existe aussi un club PORTFOI K) pl r 

PORTFo' T LtB e ‘ ENV01 » uis p OKTFOL.„, ,e "dë esï 

iraV h ?' A ,ren,en, • SI v,,us vo " le2 recevoir la version de démons 
dt ‘ mon nasse-briques ou des informations plus techniques 
les ports, envoyez-moi une disquette* enveloppé timbrée (pour 
fa demo) ou cerivez-moi à* Thîf*rrv nom v . 1 ipom 

Noyai/Seiche. ' B0DIN ’ aunay-Hyon», 3523# 

A bientôt ! 



**************^******************«*« !l .**^ 

EXEMPLE N °1 

Routines graphiques pour Atari Portfolio 
par Thierry BODIN 
Fichier; SCARFY LA SM 
Pour assembler cet exemple, il faut utiliser 
Turbo Assembler de Borland (T ASM) comme ceci- 
TA SM SCARFY I fmA 
TLINK SCARFY] ft 

Tape/, ensuite SCARFY ! au prompt du DOS 
I ,<i s «;» indiquent des commentaires 

r r i j t l -i- ^ -L ?[î .p -jî -4: ;?î 4-t 4; 

J CM PS 

CODE Segment 
Assume csrCODE 

Ot^ 100h ; Nous allons compiler un 

; fichier .COM 


tnov 

call 

ITIOV 

mov 

recom: 

mov 

mov 

xor 

mov 

di 


repu: 


ds.Tüldcom],a! ; Sauve le contraste de Putilisateur 
jenerPosBalles ; Routine pour tirer aléatoirement 
; ia position de chaque balle 
ax.OBOOOh ; Segment vidéo 

CS,ax ; 11 esr important que ES soit égal à B 0001 1 
: £ivam d’appeler une des routines 

bp, NË BALLE 
si, offset Posballe 
ah, ah 
bh.ah 

- Evite les parasites du raifaîchissement et 
; autres programmes externes 


lodsb 

mov 


push 
push 
call 
pop 
pop 
inc 
inc 
dec 
jnz 


bl.al 

bx 

ax 

AffBalIe 

ax 

bx 


; Charge coordonnée Y 

: Charge coordonnée X 
. On tiansmet les coordonnées 

; par la pile 

1 Copie le sprite de la balle dans le segment vidéo 


NB BALLE eqn ISO 


; Nombre de balles à afficher 


Début: 

ptish es 
pop ds 
push es 
pop es 
mov ax,5 
int 1 Oh 
mov dx, 80601, 
in al.dx 


ca 
sli 

mov 

mov 

depbl: 


1 DS=CS 
; ES=CS 

, Lct OOh.mode 05 h de Plut lOh 
; Passage en mode graphique (240*64) 


add 
cm p 
jae 
emp 

ja 

chgdepy; 

nés 


S ! ; ( ) n ne i' 1 P aji encore les informations 

S f ' ’ sur sens de déplacement de la balle 

°P : Toutes les balles sont copiées ? 

ie Pu ; NON-> on recommence 

pl " ' ,nagL ‘ : Envoi le segment vidéo au contrôleur écran 
bp.NBBALLL 

xffset posballe . On calcule les nouvelles coordonnées 
; des balles 
; Charge Y 

aLds:[si+ 1 1 ; Ajoute le sens de déplacement (-2,- 1 . 1 ou 2 ) 

a L-‘ ) ; La balle est en bas de l’écran ? 

chgdepy , OU I -> on change le sens de déplacement 
■ - Ea balle est en haut de P écran ? 

paschgy : Ol T -> on change le sens de déplacement 

byie plr ds:[si+] | ;Inverse le sens: I devient - ! 
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paschgy : 

; -2 1 

mov 

ds:jsi- 1 |,al 

lodsb 

: ( 

add 

al .ds: | si * 1 ] 

emp 

al,235 

jae 

chgdcpx 

emp 

aU 

ja 

paschgX 


chgdepx: 

neg 

paschgX: 
mov 
inc 
inc 
dec 
jnz 
mov 
loop 
mov 
i ni 
jnz 

mov 

mov 

xor 

mov 

xor 

rcp 

J m P 

norecom: 

xor 

int 

calî 

mov 

int 

mov 

mov 

int 

cal] 

mov 


; La halle est à droite de l'écran ? 

; OUI -> on change le sens de déplacement 
; La balle est à gauche de l'écran ? 

; OUI -> on change le sens de déplaeemenl 

byte ptr ds:|si+ 1 ] ;In verse le sens: I devient - 1 , 

; -2 devient 2».. 

ds: [si- 1 j.al ; Sauve la nouvelle coordonnée X 
si ; On passe à la 

si ; balle suivante 

bp ; Il reste des balles à déplacer ? 

depbl ; OUI -> On recommence 
ex, 8000 ; Pause pour éviter la rémanence 

$ 

ah J ; Test si une touche a été appuyé 

16h 

norecom ; OUI -> on sort 

bp, NB BALLE 
si, offset posballe 
di ali 

ex J 920/2 
ax,ax 
stosw 
repu 


; Efface le segment vidéo 


ah,ah 

16h 

PalDown 
ax/7 
1 Oh 
ah, 9 


; Vide la touche du tampon-clavier 

; Efface en fondu grâce au réglage du contn 
; Fct 00h, mode 07 h de Tint 1 Oh 
; Passe en mode texte 
; Pet Q9h, affichage d’une chaîne 
dx, offset rnsg ; Affiche le (c) 

21 h 

Pal U p ; Remet le contraste d’origine en fondu 
ax,4000h ; Fct 4Ch, retour au DOS. Le OOh 

2 1 h ; signifie qu’ il n’y a pas eu d'erreur 


int 

■ 4 # 4 ^ 4 * 4 4* 4 4 4 4 4 4 4 4 4 4 $ 4 1 4 4 s|: ;|s 4 4 4 4 4c 4 4 4 4 4 ;[; 4 4 î|c 4î 3gc 4 4 4 î|î 4 ?|c 4 ;|c 4 T- 4 ■ 

* i 

;* Copie le sprite d’une balle dans le segment vidéo + ; 

. * * * sjî 4 Sgc 4 - 4 4 4 - 4 4 * 4 4 4 4 4 4 - **** 4 4 'K 4 4 * 4 * 4 ï|: 4 4 4 4 T- 4 - 4 4 - 4 4 4 4 4 4 4 4 4 4 * - 


; caractères de 8 bits {soit 30*8 pixels=240) 

: par ligne 

mov dx,ss:|bp+4] ; DX= N° de colonne (0 à 239) 
mov b Ldi 

and bl,l ! lb : RL- N de bit d’origine pour copier fe sprite 
shr dxj 
shr dxj 

shr dxj ; Divise DX par 8 pour avoir le n° d’octet 

: à lire 

add dx,ax ; (de 0 a 29) de la ligne 
mov cx,dx 

xchg bx,ex ; BX- Offset vidéo 

; CL= N° de bit d'origine 

push bx 

mov bx,es;[bxl ; Lit dans le segment vidéo ce qui est déjà 

: affiché pour faire un masque 
ror bxxl ; Positionne sur le 1er bit à modifier 
and bl, ! 1 1 10000b ; La balle fait 4 bits de long donc on libère 

; la place pour la copier (Hile sera copiée sur 
: les 0000) 

lodsb ; Charge une ligne de la balle 

add M,al ; L'ajoute 

roi bx.cl ; Replace les bits 

mov ax.bx 

pop bx 

mov es:[bx],ax ; Rajoute dans le segment 
inc word ptr ss:[bp+6] ; Ligne suivante 
dec di ; Les 4 lignes sont copiées ? 

jnz rcailballe : NON -> on recommence 
pop si 

sti : Autorise le rafraîchissement 

mov bp,sp 
pop bp 

retn ; On sort 

AfïBalle endp 

* 4 4 sK 4 4 4 4 4 4 T- 4 4 4 * 4 H: 4 4 4 4 . 

i i 

;* Recopie le segment vidéo à l'écran *; 

- 4 4 4 4 4= 4 4 4 4 4 4 4 ïfc 4 4 4 4 4 4 S- 4 4 4 4 - 4 4 4 4 4; 4 4: 4 4: 4 4 4 4 sjs - 

t , 

; NOTE IMPORTANTE: Ce que vous copiez dans le segment vidéo ne sera 
: affiché immédiatement car le rafraîchissement n’a lieu que toutes les 
; 128 secondes ou toutes les secondes selon votre configuration. 

; Celte routine passe outre et copie le contenu du segment sur F écran 
; via des OUTs. Il est obligatoire d'écrire les pixels dans le segment 
; vidéo avant de les envoyer sinon, en cas de rafraîchissement du BIOS, 

; votre image sera remplacée par le contenu du segment. 

; Syntaxe d’appel: 

; Caîl Put Image 


; Syntaxe d’appel: 


Put! ni âge proc near 


; Push Y 


push 

ds 


; Push X 


push 

es 


; Cal! ÀffBalle 


pop 

ds 


; add sp,4 


mov 

ex, 30*64 

; 1920 octets à envoyer 

ÀffBalle proc near 


xor 

sLsi 


push bp 


mov 

dx,801 lh 

; Fct 0A h du port 80 1 1 h 

mov bp,sp 


mov 

ax, 000 Ah 

; Envoyer F octet de poids faible de l'adr 

di 

; Empêche le rafraîchissement d'écran 

oui 

dx.al 


push si 


mov 

aLah 


mov di,4 

; Le sprite fait 4 lignes 

dec 

dx 


mov si, offset, babal ; Pointe sur le sprite 

oui 

dx,al 

: Port SOI 0h, Envoi de l'octet de poids faible 

reaffballe: 


inc 

dx 

mov ax,ss:|l 

jp+6] ; AX= N° de ligne (0 à 63) 

mov 

a L0 B h 

: Fct OBh du port 801 1 h 

mov bx,ax 


out 

dx,al 

; Envoyer F octet de poids fort de l’adresse 

shl bxj 

; Multiplie BX par 2 

mov 

aLah 

shl axj 


dec 

dx 


shl ax, 1 


out 

dx.al 

: Port 801 Oh, Envoi de F octet de poids fort 

shl axj 


inc 

dx 

shl axj 


mov 

al. 0C h 

; Fct 0C h du port 80 1 1 h 

shl ax, 1 

; Multiplie AX par 32 

out 

dx.al 

: Envoyer le caractère à afficher 

sub ax,bx 

; 32-2=30 doue =AX*30 

dec 

dx 



; On multiplie Y par 30 car l’écran fait 30 

psct_3: 


* 
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4 * * ** 


5 il — I : kill litemp$; pgsave fiteinp$ return 
Sortie de programme 


lodsb 


; Charge le caractère 

out 

dx,al 

; et F envoie dans le port 801 Oh 

nop 


; Ces 4 NOPs font perdre du temps à la 

nop 


; machine pour que le contrôleur vidéo 

nop 


; ait le temps de suivre, sinon ü affiche 

nop 


; n’importe quoi. 

Ioop 

pset_3 

: Envoie tous les caractères 

pop 

ds 


retn 



Fut! mage i 

srulp 



,***!£;*;£*** *# ;f; * i|s ^ * £ ;|c £ ^ ^ ^ ^ ^ ^ -! r -j, ^ ^ ^ ^ + 

•* 

;* Permet de faire un tirage aléatoire *; 

. :[: 4 * * * * * i(£ * * * * * * * * * * * 4 : ^ î|i ^ jjc ^ $ : j; ,j ; ^ ^ £ jj. .j, . 

; Renvoie dans AL un nombre compris entre 
; 0 et nn, nn étant la puissance de 2 - 1 
: du masque contenu dans AH. 

; Pour obtenir un nombre entre 0 et 65535 
: il faut lire la variable MALEAT 
; Je tiens à remercier Rod et Thierry 
; (Sysop & CoSysop de RTEL) qui ont créé 
; cette routine. 

; Syntaxe d'appel: 

; Call Random 
Random proc near 
push ex 

mov ch ? 8 ; Valeur de la boucle... 
Baleat; 


mov 

al.byte ptr ds: [Maleat 1 ; 

sal 

al.l 

xor 

afbyte ptr ds:[Maleat+l | 

sa! 

co 1 

al, ! 

il 1 

Sai 

ici 

ai , s 

byte ptr ds: [Maleat] J 

rcl 

byte ptr ds:[Maleat+ 1 J, 1 

inc 

word ptr ds: l 'Maleat] 

dee 

ch 

jne 

Baleat 

mov 

albyte ptr ds: [Maleat j 

and 

al, ah 

xor 

a h, ah 

pop 

ex 

retn 



Random endp 

Maleat dw UACDCh ;Nombre aléatoire. 

î* Génère la position et le sens de déplacement de chaque balle *; 
; *********************^^ 

; Syntaxe d'appel: 

; Call GenerPosB ailes 
GenerPosBalles proc near 
mov di, olïset posballe 
mov bp ,N B BALLE 
postal md: 

mov ah, 63 ; Tirage de Y 

call Random 

add al,2 

emp al ,58 

ja posbalrnd 

stosb 

mov ah.OFFh 
realeat 1 : 

call Random 
add al2 
emp al 234 
ja realeat I 


; 11 rage de X 


O 


mov ex,, 
rnddep; 

mov ah,lîb 


; Tirage des 2 sens de déplacement 


caîl 

Random 

emp 

al.l 

jbe 

depneg 

dee 

al 

jmp 

depneg: 

dep 1 good 

sub 

al, 2 


deplgood: 


Recommence pour toutes les balles 


îoop rnddep 
dee bp 
jnz posbalrnd 
retn 

GenerPosBalles endp 

* * * * * =f= * * * * * * * ;fi t- sic * * * * * * * * >r £ £ =g *), ^ ^ ^ * 4 * 4 . 

;* Efface en fondu grâce au contraste *; 

■ $ * ***********4:* * 41 * * * * 4: * * * * 4; * * î|; * * * $ }|? sji s|é 4; . 

» 

; Syntaxe d'appel: 

; Call PalDown 
PalDown proc near 

mov dx,806üh ; Port 8060h= Lire ou écrire la valeur 

; de réglage du contraste 

alds:]oldcont| 


dx,al 

cx,550() 


al 

reout 

dx,al 


mov 

cli 

reout: 
ont 
mov 
Ioop 
dcc 
jnz 
out 
sti 
retn 

PalDown endp 

. * * * * 4= * 4’ * * ******** ********** 4t 

;* Affiche l’écran en fondu *; 

■ * * *** * * *************** * * **** 

; Syntaxe d'appel: 

: Call Palup 

PalUp proc near 

mov dx,8060h 


; On fait une pause pour voir P effet 

; Tant que l'écran il est pas clair on 
; recommence 


xor 

cli 

reout_2: 

out 


alal 


; Port 8060h= Lire ou écrire la valeur 
; de réglage du contraste 
: On commence à 0 


; On fait une pause pour voir T effet 


dx,al 

ex ,5 500 
$ 
al 

aLds:|oldcont] ; Tant que P écran n'est pas affiché, 
reout_2 ; on recommence 


mov 

Ioop 
inc 
emp 
jbe 
sti 
retn 

PalUp endp 

; ï|£ * * * * * * * * * * ****** * * ****** * 4 * * 4= # * * *******************, 

J* Les données 

; Ÿ * * * * * :jî * ***** * * ******** * ************************ . 

oldcont db 0 

msg db '(c) 1994 Scarfy /Thierry BODIN’. ODh.OAh.T 


babal db 0 1 1 0b 
db 101] b 


; Voici notre balle 


db 

db 

Posballe 


1111b 

0 1 1 0b 

db NBBAI.LI: *4 dup (0) ; 1er octet - Coord. Y 

;2ème octet= Coord. X 
;3ème octet- Sens de Y 
;4ème octet= Sens de X 

CODE Ends 

h.nd Début ; Fin du programme 
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par Mickaël Saillot 


Pour certain, l'assembleur est trop compliqué malgré sa rapidité d'exécution imbattable. La 
seule solution étant donc de programmer avec le langage usuel de votre HP, mais vous vous 
apercevra programme après programme que ce langage est lent, gourmand en mémoire et 
qu'il vous faudrait plus de commandes pour réaliser des programmes géniaux. La solution 
consiste donc à programmer en RPL - système, c'est à dire en Externat. Cet article va essayer 
de vous éclaircir sur la programmation en External en vous démontrant que les ingénieurs de 
chez HP on vraiment pensé à tout pour cette machine. 


1) Ou 1 est-ce que r E xternal ? 

Le langage Extemal n’est en fait qu’une extension du RPL, seul 
langage auquel Hewlett Packard vous permet d’accéder. Toutes 
les commandes auxquelles vous avez accès (telles que DROP, 
S WAP,..) sont programmées en Extemal. En effet, celles-ci font 
appel à différentes adresses de la ROM du HP 48 vérifiant les 
arguments nécessaires sur la pile pour éviter le plantage du HP 
48. Ce langage consiste à appeler une adresse de la ROM du HP 
48 qui exécutera une routine interne ou déposera sur la pile un 
objet quelconque (il est important de savoir qu’un objet désigne 
les éléments de base d’information utilisés par le HP 48. Notons 
comme principal objet le programme, la chaîne de caractères, le 
réel, la liste, le graphique, etc.). N’ayant pas une multitude de 
tests et de contrôles à effectuer, la programmation en Extemal 
permet de taire des programmes beaucoup plus rapides (de 2 à 7 
lois; surtout pour les routines internes ayant rapport avec le gra- 
phisme). Et, de plus, le fait d’appeler une adresse dans la ROM 
du HP 48 ne nécessite que 5 quartets, c’est à dire 2,5 octets de 
mémoire. Vous devez sans doute pensez que l’on pourrait utili- 
ser l’instruction SYSEVAL, ceci est vrai pour certaines routines, 
mais cette instruction vérifie la présence d’un binaire sur le ni- 
veau 1 de la pile donc il en résulte une perte de temps. 

H) Comment pr og ra mmer en External ? 

Si vous voulez programmer en Extemal il vous faudra connaître 
le maximum d’adresses possible sachant qu’appeler une adresse 
débouche sur l’évaluation d’un programme en général. (A ce 
propos, notez les excellents ouvrages de M. Jean Michel 
FERRARD : «les secrets de la HP 48» aux éditions D3I ). La 
connaissance du microprocesseur de votre HP 48 n’est pas vrai- 
ment importante, au contraire de l’assembleur. Sachez que l’on 
peut appeler une adresse si et seulement si celle ci est inférieure 
à #70000h, c’est à dire #458752 en décimal. Vous allez trouver 
ci dessous différentes adresses couvrant les principaux domaines 
du RPL système. Ensuite on expliquera comment utiliser ces 
adresses aiin d’obtenir un programme exécutable. 

A) L es Booléens 

Un booléen est un drapeau pouvant prendre la valeur vrai (true) 
ou la valeur faux (false). Celui ci est déposé sur le niveau 1 de la 
pile après un test. L’adresse du booléen true est #3A81h et celle 
du booléen false est #3AC0h. Si on actionne la touche EVAL sur 

un booléen présent au niveau 1, il ne se passe rien; ils sont donc 
inévaluables. 

Quelques adresses : 

#3AF2h : cette adresse permet d’effectuer une inversion du boo- 
léen présent au niveau 1 de la pile. (Ex : false devient true). 
#3B75h : cette adresse effectue un test sur les deux booléens 



#3 AD Ah : cette adresse teste si les deux booléens aux niveaux 1 
et 2 sont différents. 

#3B46h : cette adresse teste si les deux booléens présents aux 
niveaux 1 et 2 sont des booléens true. 

B) Les entiers système 

Un entier système est pour simplifier un chiffre pouvant prendre 
les valeurs de 0 à #FFFFFh (1048575 en décimal), qui est direc- 
tement compréhensible par le microprocesseur de votre HP 48. 
11 est présenté sous la lorme < XX... z > où «z» correspond à la 
base courante (d pour décimal, h pour hexadécimal). Il est im- 
possible de le taper directement en ligne de commande. Un grand 
nombre de points d’ entrés de votre HP 48 nécessitent des entiers 
système comme arguments. 

Quelques adresses : 

#3DBCh : additionne 2 entiers système. 

#3DE0h : soustrait 2 entiers système. 

#3EC2h : multiplie 2 entiers système. 

#3DEFh : incrémente un entier système. 

#3EÜEh : décrémente un entier système. 

#3CA6h : teste si l'entier système présent sur le niveau 1 est égal 
à 0, la réponse est un booléen. 

#3CC7h : teste si l’entier système présent sur le niveau 1 est 
différent de 0, la réponse est un booléen. 

#3D 1 9h : teste si les 2 entiers système présents sur les niveaux 1 
et 2 sont égaux, la réponse est un booléen. 

#3D4Eh : teste si les 2 entiers système présents sur les niveaux 1 
et 2 sont différents, la réponse est un booléen. 

#3CE4h : teste si l’entier système présent au niveau 1 est supé- 
rieur à celui du niveau 2, la réponse est un booléen. 

#3D83h : teste si l’entier système présent au niveau 1 est infé- 


présents aux niveaux 1 et 2. Elle teste si au moins un des deux 
booléen est true. 
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rieur à celui du niveau 2, la réponse est un booléen. 

#6264Eh : multiplie un entier système par 1 0. 

#622B6h . teste si 1 entier système présent au niveau 1 est égal à 
1, la réponse est un booléen. 

#636F0h : teste si l’entier système présent au niveau 1 est supé- 
rieur a I , la réponse est un booléen. 

C) Opé rations sur la pil o 

11 s agit des fonctions les plus utilisées dans un programme per- 
mettant d’agir sur les objets présents sur la pile. En général les 
adresses t'ont appel à des routines internes programmées en lan- 
gage machine , il en résulte un gain de vitesse. 

Quelques adresses: 

#3244h : forme interne de DROP; élimine l’objet du niveau 1. 

#3 188h : forme interne de DUP; duplique l’objet du niveau 1. 

#3223h : forme interne de S WAP; échange les niveaux 1 et 2. 

#3258h : forme interne de DROP2; élimine les objets des ni- 
veaux 1 et 2 . 

#3295h : forme interne de ROT; l’objet du niveau 3 apparaît au 
niveau 1. 

#61 1 fEh : effectue un 3 PICK; l’objet du niveau 3 est copié au 
niveau 1. 

#60FBBh : effectue un 4 ROLL; l’objet du niveau 4 apparaît au 
niveau 1 . 

#60FACh : effectue un 3 ROLLD; l’objet du niveau 1 est placé 
au niveau 3. 

#60F9Bh : effectue un DROP sur le niveau 2. 

#60F21h : effectue un DROP sur le niveau 3 . 

#62726h : effectue un DROP sur les niveaux 1 et 3. 

#60EE7h : échange les niveaux 2 et 3, 

#6270Ch : effectue DROP et ensuite SWAP. 

#62747h : effectue SWAP et ensuite DUP. 

#62830h : effectue un DROP sur le niveau 2 et ensuite DUP. 

#62 FBI h : effectue un DUP et ensuite ROT. 

#62F89h . effectue un DROP sur le niveau représenté par un 
entier système au niveau 1 . 

#62D31h : effectue OVER et ensuite SWAP. 

#6386Ch : effectue SWAP et ensuite DUP2. 

#62CA5h : effectue ROT et ensuite OVER. 

#60F33h : échange les niveaux 1 et 3. 

# 3 1 D9h , effectue la fonction DUPN avec l’entier système pré- 
sent au niveau 1 . 

#32E2h : effectue une copie du niveau donné par l’entier sys- 
tème présent au niveau 1 . 

D) Tests etj^plultalion s des résulta 

Certaines adresses de la ROM du HP 48 effectuent des tests. ( 
Voir comme exemple les entiers système ). Vous pouvez exploi- 
ter le résultat du test et diriger la suite de votre programme sui- 
vant que le booléen soit false ou true. 

a) Structure IF TH F. TV Fiyp 

On a d’abord un test renvoyant un booléen. L’adresse #619BCh 
exécute 1 objet suivant du programme si et seulement si le boo- 
léen est true. Le programme continue ensuite. 

b) Structure IF T HEM KLSF rivn 

On a d’abord un test renvoyant un booléen. L’adresse #61 AD8h 
exécute l’objet 1 si le booléen est true sinon elle exécute l’objet 
2. Le programme continue ensuite. 

c) Structure FUSE END 

On a d’abord un test renvoyant un booléen. L’adresse #7 12 Ah 


exécute l'objet suivant si et seulement si le booléen est false. Le 
programme continue ensuite. 

E) Les boucles 

a) DÜ^mgiJYIlL END 

Le prog peut être constitué d’un ou plusieurs objets mais doit 
renvoyer un booléen nécessaire pour UNTIL END. 

L’adresse de DO est #71A2h et celle du UNTIL END est #7ÎC8h. 
Si le booléen est égal à true alors on sort de la boucle et on con- 
tinue la suite du programme sinon on retourne à DO. On peut 
remplacer l’adresse #71C8h par #71ABh. Celle ci ne nécessite 
pas de booléen mais la boucle est exécutée sans fin. 

b) YVIiJLF RF/PEAT F NI) 

#712Ah : tant que ... (même adresse que le DO). 

Test renvoyant un booléen. 

#7IEEh : exécute prog. 

#71E5h : jusqu’à ce que le booléen du test soit false. 

c) EQR I = 1 TO x prog NFYT 

Les boucles non conditionnelles utilisent les entiers système 
comme arguments. L’adresse #7221 h permet de ressortir sous 
forme d’entier système, l’indice de la boucle. 


niveau 2 
niveau 1 

_ <n> 

<n> 

<n> 

<n> 

<m> 

For = 

#73CEh 
1 to n+1 

# 73C3h 
0 to n+1 

#73DBh 
1 to n 

Il 1.1ÏL 

#73F7h 
m to n+1 

niveau 1 




<s> 


# 7334h 
NEXT 

# 7334h 
NEXT 

# 7334h 
NEXT 

#73A5h 

<s> 


La ROM du HP 48 possède énormément de points d’entrés ayant 
rapport avec le graphisme. Vous avez deux solutions soit utiliser 
l’environnement PICT (celui ou se dessine les courbes) ou utili- 
ser le grob de la pile (celui que vous utilisez pour faire 2 + 2 î ! ). 
Je vous conseille d’utiliser le grob de la pile car les instructions 

sont beaucoup plus rapide et de plus vous n’effacez pas l’envi- 
ronnement PICT. 

Quelques adresses : 

#5046Ah : efface l’écran en entier. 

#4E2CFh : efface la ligne des menus, vous permet d’utiliser le 
grob de la pile en entier c’est à dire 131*64. 

#I28B0h : applique le grob du niveau 1 aux coordonnées X et Y 
données par les entiers système présents aux niveaux 2 et 3. 

#1 IDOOh . effectue 1 ->GROB sur une chaîne de caractères. 

# 122F F h : inversion des points du grob présent au niveau 1 ( un 
point blanc devient noir...). 

#50758h : trace une ligne dans PICT , nécessite 4 entiers sys- 
tème sur la pile du niveau 1 à 4 inclus. 

#1 l58Fh : crée un objet graphique vierge de dimensions repré- 
sentées par les entiers système des niveaux 1 et 2. 

#505 78h : donne la hauteur et la largeur du grob présent au ni- 
veau 1 par 2 entiers système. 

#12815h . effectue 1 - ^GROB sur la chaîne présente au niveau 1 
et la place aux coordonnées représentées par les entiers système 

des niveaux 2 et j sur le grob du niveau 4, le résultat étant un 
nouveau grob au niveau 1 . 

#1 2E89h . le grob du niveau 1 devient l’objet graphique du grob 
de la pile, même si celui ci dépasse les dimensions 131*64. 
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#130CAh : ramène le grob de la pile à ses dimensions standards 
c’est à dire 131*64. 

G) Le clavier. 

11 est intéressant de connaître quelques adresses concernant la 
gestion du clavier, en effet P appui sur une touche peut être déter- 
minant pour un programme (surtout en mode graphique ; pour 
les jeux...). Le code de la touche qui est ou a été appuyée est 
renvoyé sous forme d’entier système. Le code de la touche [Aj 
est par exemple <lh> ainsi de suite en allant ligne par ligne ( 
[G] = <7h>; [L1 - <Ch>... ). 

Quelques adresses: 

#420 AOh : attend une touche, le résultat est un Extemal TRUE 
sur le niveau 1 et le code de la touche au niveau 2 ou un booléen 
FALSE sans code touche, 

#47 1 4h : une touche a-t-elle été appuyée ? Le résultat est le même 
que l’adresse ci dessus. 

#D7 1 h : vide le buffer clavier. 

# 42262h : teste si la touche ON a été appuyée la réponse est un 
booléen. 

#5068h : cette adresse permet de mettre à 0 une autre adresse se 
souvenant du nombre d’appui sur la touche ON. 

H) Création de variables locales. 

Les variables locales ne servent uniquement que pendant le dé- 
roulement d’un programme. On peut stocker n’importe quel ob- 
jet dans une variable locale , elles sont parfois indispensables 
mais je vous conseil plutôt de vous servir de la pile pour gagner 
du temps. 

Quelques adresses : 

#61CE9h : crée un nombre de variable locale ( + 1) donné par 
l’entier système du niveau 2 et de même nom donné au niveau 1 
la variable n°l ne doit pas être utilisée donc la variable n°2 re- 
çoit l’objet du niveau 3 avant l’utilisation de cette adresse. 
#74E4h : crée un nombre de variable locale donné par l’entier 
système du niveau 1 ( on ajoute 1 a l’entier système avant créa- 
tion ). 

#75A5h : rappelle le contenu de la variable de numéro donné 
par l’entier système du niveau 1 . 

#75E9h : place l’objet du niveau 2 dans la variable locale de 
numéro donné par l’entier système du niveau 1. 

#615E0h : stocke l’objet du niveau 1 dans la variable locale N°1 . 
#61 5F0h : stocke l’objet du niveau 1 dans la variable locale N°2. 
#61600h : stocke l’objet du niveau 1 dans la variable locale N°3. 
#6 161 5h : stocke l’objet du niveau 1 dans la variable locale N°4. 
#61625h : stocke l’objet du niveau 1 dans la variable locale N°5. 
#61635h : stocke l’objet du niveau 1 dans la variable locale N°6. 
#613B6h : rappelle le contenu de la variable locale N°1 . 
#613E7h : rappelle le contenu de la variable locale N°2. 
#614E0h : rappelle le contenu de la variable locale N°3. 
#61438h : rappelle le contenu de la variable locale N°4. 
#6145Ch : rappelle le contenu de la variable locale N°5. 
#6146Ch : rappelle le contenu de la variable locale N°6. 

I) La vérification des arguments sur la pile. 

Vous aurez sans doute besoin de tester le nombre et le type des 
arguments nécessaires sur la pile pour que votre programme se 
déroule sans problèmes ; voici quelques adresses qui éviteront le 
plantage de votre HP 48 : 

0 argument nécessaire : #18A15h ; 1 argument nécessaire : 


#18AB2h ; 2 : #18A8Dh ; 3 : #18A68h ; 4 : #18B9Fh ; 5 : 
#18B7Ah. Il faudra aussi tester le type du ou des objets 
nécessaire(s) à votre programme; l’adresse # 1 8FB2h réalise cette 
fonction, elle est suivie d’un entier système de préférence en hexa- 
décimal identifiant au maximum 5 objets. Comme en RPL (avec 
l’instruction TYPE), chaque objet à son identificateur. Les prin- 
cipaux sont <0h> pour un objet quelconque, <1 h> pour un réel, 
<3h> pour une chaîne de caractères, <8h> pour un programme, 
<Ch> pour un graphique... 

Exemple : on veut vérifier la présence d’une chaîne de caractè- 
res au niveau 1 et d’un objet graphique au niveau 2 : on procé- 
dera de cette manière : 

# 1 8AF2h : 2 arguments présents sue la pile sinon erreur. 
#18FB2h : vérification des types. 

<C3h> : <3h> pour la chaîne au niveau 1 et <Ch> pour l’objet 
graphique au niveau 2. 

Nous allons voir maintenant comment utiliser ces adresses afin 
de réaliser un programme. Comme pour l’assembleur on utilise 
une chaîne de caractères pour faire le source, je vous conseil 
d’utiliser un éditeur de texte tel que le STRING WRITER de 
Jean Yves AVENARD). Ensuite le fichier source sera transformé 
en programme exécutable par l’intermédiaire d’un compilateur. 
Quand je travaille sur ma HP, j’utilise personnellement la 
DEV.L1B d’Etienne De FORAS qui est la plus simple d’utilisa- 
tion et propose beaucoup de commandes. ( C’est un FREEWARE 
). La fonction ->S permet de transformer un source en programme 
exécutable ( la fonction S-> réalise le contraire) le $ ( alpha shift 
gauche 4 ) permet d’indiquer une adresse à transformer le o ( 
alpha shift gauche 6 ) permet d ‘inclure un entier système. La 
fonction INCLUDE XXX permet d’inclure l’objet qui est con- 
tenu dans la variable XXX. La fonction K$ permet d ‘inclure un 
code ASCII sous forme de Character ( tout comme l’entier sys- 
tème un Character est directement compréhensible par le micro- 
processeur du HP 48 on a 0<K$<255 obligatoirement. La fonc- 
tion - ( alpha shift droite V) permet de ne pas évaluer l’objet qui 
suit cette commande ( essayez donc de faire ~ DUP et vous com- 
prendrez aussitôt). La fonction ->RAM permet de visionner le 
contenu d’une commande ( la commande peut être par exemple 
DUP; essayez donc ceci : ~ DUP ->RAM ->S et vous compren- 
drez pourquoi j’ai dit que les commandes auxquelles vous avez 
accès sont programmées en Extemal ). Voir à ce propos l’exem- 
ple en fin d’article pour mieux comprendre quelle allure à un 
fichier source. Nous allons montrer ici les différentes étapes afin 
de voir les adresses auxquelles la fonction S WAP fait appel : 

- S WAP .* on fait un NOEVAL sur la fonction SWAP ; SWAP 
apparaît au niveau 1 de la pile. 

->RAM : affiche le contenu de la fonction SWAP sous l a forme 
«Extemal Extemal» au niveau 1. 

->S ; transforme chaque Extemal avec son adresse on obtient: 
PRG : il s ’ agit d’un programme. 

$ 1 8A80 : Vérifie la présence de 2 arguments, en rappelant du 
nom de la commande pour le message d’erreur éventuel. 

$ 3223 : forme interne de S WAP. 

EN D : fin de programme. 

Si vous possédez un compatible PC je vous conseille d'aller lire 
l’encadré en fin d’article. 

Voici un exemple de programmation en Extemal. Le but du pro- 
gramme est de faire défiler une chaîne de caractères (présente au 
niveau 2) en mode graphique à une allure définie par le réel du 



l 


Poche computers N°3 




POCHE COMPUTERS 






"-«SJ 





y a possibilité de Stopper le défilement avec la touche 
I bN ER] et de sortir avec n’importe quelle autre touche. Allez 
dans votre éditeur de texte HP et entrer le source suivant ( les 

commentaires en italique ne sont pas à mettre, ils servent d’ex- 
plication ) : 

PRG ; début du programme. 

$ Ï8A8D ; vérifie la présence de 2 arguments sur la pile. 

î 8F B2 ; teste le type des objets présents aux niveaux 1 et 2 

° 3 1 h :le} P° ur le ™el au niveau 1 et le 3 pour une chaîne au 
niveau 2. 

auc “ ne er y ur ahrs exécute cet objet ici un programme. 
$ 5 046 A . efface l écran de la pile. 

$ 4E2CF ; efface la barre des menus. 

S I 8CD7 ; transforme le réel du niveau 1 en entier système 
$ 62747 : cette réalise S WA P et DUP en interne 

$ 5636 ; donne la taille de la chaîne sous forme d’un entier 
système. 

a 15h : ou 21 en décimal. . . 

$ 3DE0 ; soustrait 2 entiers système ; ici enlève 15h à l’entier 
système indiquant la taille de la chaîne . 

$ 73DB ; FOR i~ 1 to ... (entier système obtenu grâce au résul- 
tat de l ‘adresse $ 3DE0. 

$ 3 1 88 . forme interne de DUP ( duplique la chaîne ). 

$ 722 1 : ressort l ’ indice de la boucle. 

$ 3188 : forme interne de DUP ( duplique l’indice). 
a 1 6h ; ou 22 en décimal. 

S 3DBC : on ajoute l’indice + <16h> ( taille maximum à affi- 
cher en une seule fois). 

$ 5733 .• on effectue un SUB sur la chaîne de caractères du 
niveau 3 grâce aux entiers système des niveaux J et 2. 

S 1 1 D00 : on effectue la commande 2->GROB sur ce morceau 
de chaîne . 

S 4E712 ; on transforme le grob 132*8 en grob 131*8 ■ on en- 
lève donc la dernière colonne du grob (sans importance) 

$ 122FF ; inversion de ce grob ( on fait un petit plus...). 
a Oh : ou 0 en décimal ! 

G ICh : ou 28 en décimal. 

I FU forme m,erne de R OT ( le grob revient au niveau 1 ). 

3) 128B0 ; on place ce grob en coordonnées X=<0h> et Y=< lCh> 
grâce aux entiers système . 

$ 32C2 : forme interne de OVER (on a besoin de l entier sys- 
tème pour l 'allure de l 'affichage 

$ 73 DB ; FOR i = 1 to .... 

$ 40EE7 ; attends environ 5/100 ème de seconde. 

$ 7334 : next on revient au FOR i ci dessus. 

$ 4708 : teste si une touche a été appuyée . 

$ 619BC : 1F THEN ( if booléen = TRUE THEN ). 

PRG . alors on exécute encore un programme. 

a | 9 h ' ou 25 en décimal ; code de la touche [ ENTER J. 

$ 3D 1 9h ; teste si 2 entiers système sont égaux c est à dire s ’il 
s agit de la touche [ ENTER J. 

S 61 AD 8 : IF TRUE OBJ1 ELSE OBJ 2 END 
PRG : ...(objet TRUE). 

$ D71h ; vide le buffer clavier. 

S 420A0h : attends l’appui sur une touche. 

$ 619BC ; si le booléen est true alors. 

$ 3244 ; effectue un DROP car on a pas besoin du code de la 



touche qui permet de refaire défiler la chaîne. 

END : fin programme donc fin de OBJ1. 

$ 6400F ; au prochain next on sort...c ‘est l’objet FALSE on 
aurait pu mettre à la place PRG $ 6400F END. 

■' P^gramme a la suite du teste du buffer clavier $ 

4708. 

$ 7334 . next on affiche un caractère de plus. 

$ 40F02 ; on attends un peu. 

$ 60F9B ; on exécute un DROP sur le niveau 2. 

$ D7 1 .* on vide le buffer clavier. 

"fi ndel °bjet exécuté si les arguments étaient les bons. 
EN D ; . . fin du programme. 

H) Conseils : 

Je vous conseille de réaliser toutes vos sources sur papier avant 
de les copier sur votre éditeur de texte et ensuite de les compiler. 
Vérifiez bien si vous ne vous êtes pas trompé en recopiant les 
adresses. ( Ex : ne pas mettre un F à la place d’un 7 dans une 

a , resse -) et surtout vérifiez bien les arguments nécessaires avant 
d appeler une adresse sinon vous allez au pire vers le message 
esagreable « Memory Clear «. Ne confondez pas $ et le a, C eci 
est fréquent. L’adresse #665 7h (Forme Interne de NEWOB) est 
très importante : si vous avez par exemple une variable qui con- 
tient un graphique et que vous appelez le contenu de cette varia- 

“ n,VeaU 1 de la Pde,je vous conseille d 'appliquer l’adresse 
#665 7h car certaines adresses n’effectuent pas de NEWOB avant 

agir. 11 en résulte une transformation directe au sein de la va- 
riable. 


pour PC compatibles 

Il s’agit d'un programme permettant de program- 
mer directement en external sur votre PC. Vous avez 
la possibilité de donner un nom (ou mnémonique) 
a chaque adresse. Vous pouvez compiler directement 
sur votre PC en tenant compte de la série de votre 
calculatrice ( S(x) ou G(x) ). On peut appeler une 
adresse avec $, inclure un objet HP (graphique, pro- 
gramme...) avec la fonction INCLUDE (si cet objet 
n’est pas sur l’ordinateur, PCDEV va directement 
le chercher sur la HP.). II y a gestion des XLIB pour 
la G(x) et surtout il y a la possibilité de gérer les 
mnémoniques (recherche par adresse, par mnémo- 
nique), avec un commentaire expliquant chaque 
adresse... 

Demandez une version d’évaluation (précisez si vous 
desirez une disquette 720K ou 1,44M) et envoyez 
30F en timbres à : 

POCHE COMPUTERS 
programme PCDEV 
42220 -BURD1GNES - FRANCE 
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INITIATION A L'ASSEMBLEUR SUR HP 48 

(2ème partie faisant suite au N°2 de POCHE COMPUTERS par Régis DUCHESNE) 

traction par une instruction faisant exac- 


(4.3) Instructions de branchements 


Dans un source, puisqu’il n’existe 
pas de numéro de ligne comme en BASIC 
standard, on déclare un label, c’est-à-dire 
un point où l'on désirerait aller, par exem- 
ple pour effectuer une boucle, par le sym- 
bole *, immédiatement suivi du label. Ce 
saut est un saut dit relatif . Par contre, si 
vous désirez sauter à un endroit précis de 
la mémoire, pour allez exécuter un sous- 


programme qui existe déjà en ROM (il ne 
faut pas oublier que votre machine sait 
déjà faire beaucoup de choses lorsque 


vous l'achetez..,), il 


vous faudra 



un saut dit absolu . 


a) Sauts inconditionnels 


GOTO label %Saute à la première instruc- 
tion qui suit le label 

Remarque: Il se peut que, lors de l’assem- 
blage de votre source, ASMFLASH vous 
signale le message d'erreur «Jump Too 
Big». Dans ce cas, remplacez cette ins- 
truction par une instruction faisant exac- 
tement la même chose, mais qui est co- 
dée différemment de manière interne par 
la HP: GOLONG label. 

GOVLNG adresse %Saute à 1 ' adresse 


mémoire adresse, qui doit forcément cor- 
respondre à l'adresse d'une instruction 
d'un programme en langage machine. 

Remarque pratique: Pour rendre 
la main au système, plutôt que de taper 
les fastidieuses trois instructions A=DAT0 
A, D0=D()+ 5, PC=(A), on peut écrire 
GOVLNG 12002. En effet, si l'on utilise 
un désas sembleur (c’est-à-dire un pro- 
gramme faisant l'opération inverse, lors- 
qu'elle est possible, d'un assembleur, j'uti- 
lise personnellement UN AS version 1.5 
de FRENHOFER, que vous trouverez sans 
problème sur le serveur minitel TOP JEF), 
on constate que se trouve à l’adresse 
1 2002 en ROM (toutes versions de HP48 


terne nt la même chose, mais qui est co- 
dée différemment de manière interne par 
la HP: GOSÜBL label. 

GOSBV L adresse %Saute à l'adresse mé- 
moire adresse, qui doit forcément corres- 
pondre à l’adresse d'un sous-programme 
en langage machine, et revient à l’instruc- 
tion qui suit immédiatement le GOSBVL 
dès qu'une instruction de retour (cf fin du 
paragraphe) a été rencontrée dans le sous- 
programme. 

Remarque pratique: Pour éviter 
d'avoir à faire attention, lors de l'écriture 
d'un programme, aux registres utilisés par 
la machine et que l’on ne doit pas modi- 
fier, on peut utiliser deux sous-program- 
mes très sympathiques: l'un au début du 
programme, par l'instruction GOSBVL 
0679 B, qui stocke B A, D A. D0, D i à un 
endroit précis de la mémoire, et l’autre 
en fin de programme, par l'instruction 
GOSBVL 067D2, qui récupère les valeurs 
initiales de ces registres en allant les re- 
chercher là où elles ont été stockées. (Le 
dés assembleur qui permet de trouver ces 
adresses intéressantes est un outil extrê- 
mement utile.) 

Instructions de retour: 

Retours inconditionnels: 

RTN %Retour simple 

RTNCC % Retour en désarmant la 
CARRY 

RTNSC 9f Retour en armant la CARRY 

Retours conditionnels: 

RTNC %Retour uniquement si la CARRY 
est armée 

R1NNC % Retour uniquement si la 
CARRY est désarmée. 

c) Instructions de tests 
GOC label %Saute au label spécifié 
comme avec un GOTO, mais uniquement 
si la CARRY est armée. 

GONC label %Idem si la CARRY est dé- 



sinon, on sort de la boucle. 

GOVLNG 12002 % Rend la main au svs- 

-J 

tème. 

@ » 

Exécutez- le après l'avoir assemblé, vous 
apprécierez la rapidité du langage ma- 
chine qui vous permet d'exécuter 20000 
(soit 131072 en décimal) boucles en 2 se- 
condes... 

De manière générale, un test s’écrit 
sur deux lignes d'instructions : la première 
ligne contient le test à proprement parler, 
la seconde contient ce qu'il faut faire si le 
test s’avère concluant. 

Instructions de première ligne: 

?A=0 f %A champ f vaut- il zéro? 
Remarque: Cette dernière instruction 
existe aussi en remplaçant A par B. C, ou D 

?ABIT=0 x %Le bit numéro x de A est-il 
n u I ? 

?ABIT=1 x 7cLe bit numéro x de A est-il 


confondues), un petit bout de langage 
machine dont le source correspondant est 
exactement constitué de ces trois instruc- 
tions. 

b) Sous programmes 

GOSUB label % S au te à la première ins- 
truction du sous-programme qui suit le la- 
bel, et revient à l'instruction qui suit im- 
médiatement le GOSUB dès qu'une ins- 
truction de retour (cl fin du paragraphe) à 
été rencontrée dans le sous-programme. 
Remarque: Ï1 se peut que, lors de l’assem- 
blage de votre source, ASMFLASH vous 
signale le message d'erreur «Jump Too 
Big». Dans ce cas, remplacez cette ins- 


s armée. 

Exemple: Voici te source typique 
d'une boucle de temporisation: 

«LC 20000 Chargement de C A à une va- 


Remarque: Ces deux dernières instruc- 


tions existent aussi en remplaçant A par C 
?P— x %P a-t-il la valeur x? 


?P# x CrP est-il différent de la valeur x? 


leur qui correspond sur les HP48S(X) à 
une attente d'environ 4 sec et sur les 
HP48G(X) 2 sec. 

"BOUCLE ^Déclaration de label pour 
pouvoir revenir au début de la boucle 
C-C-l A Décrémente C A. Si C A ne va- 
lait pas 0, la CARRY reste désarmée. Par 
contre, si C A valait 0, il y a retenue donc 


?ST=0 x %le drapeau x est- il désarmé? 
?ST-I x %le drapeau x est-il armé? 
?A=B f %les champs f de A et de B sont- 
ils égaux? 


?A=C f % les champs f de A et de C sont- 
ils égaux? 

?B=C f U les champs f de B et de C sont- 
ils égaux? 


la CARRY s’arme. 

GONC BOUCLE C Si la CARRY est dé- 
sarmé, on retourne au début de la boucle. 
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s égaux? 

't— '•■ 

0 C=D f 0 les champs f de C et de D sont- 
ils égaux? 

?D=C I' %les champs f de D et de C sont- 
ils égaux? 

?A#B f %les champs f de A et de B sont- 
ils différents? 

?A#C f % les champs f de A et de C sont- 
ils différents? 

?B#C f %les champs f de B et de C sont- 
ils différents? 

?C#A f %Ies champs f de C et de A sont- 
ils différents? 

?C#B f %les champs f de C et de B sont- 
ils différents? 

?C#L) f % les champs f de C et de D sont- 
ils différents? 

?D#C f %les champs f de D et de C sont- 
ils différents? 

?A<=B f 9c A champ f est-il inférieur ou 
égal à B champ f? 

?A<B f %A champ f est-il strictement in- 
férieur à B champ f? 

?A>=B f %A champ f est-il supérieur ou 
égal à B champ f? 

?A>B f % A champ f est-il strictement su- 
périeur à B champ f? 

?B<=C f %\i champ f est-il inférieur ou 
égal à C champ f? 

• B<C f %B champ f est-il strictement in- 
férieur à C champ f? 

?B>=C f %B champ f est-il supérieur ou 
égal à C champ f? 

?B>C f %B champ f est-il strictement su- 
périeur à C champ f? 

?C<=A f %C champ f est-il inférieur ou 
égal à A champ f? 

?C<A f %C champ f est-il strictement in- 
férieur à A champ f? 

?C>=A t %C champ f est-il supérieur ou 
égal à A champ f? 

?t . > A I %C champ f est-il strictement su- 
périeur à A champ f? 

?D<=C I %D champ I est-il inférieur ou 
égal à C champ f? 

?D<C f %D champ f est-il strictement in- 
férieur à C champ f? 

?D>=C f %D champ f est-il supérieur ou 
égal à C champ f? 

?D>C f %D champ f est-il strictement su- 
périeur à C champ f? 

Instructions de seconde ligne: 

GOYES label %Si le test est vérifiée, se 
branche à la première instruction suivant 
le label spécifié. 

RTNYEvS %Si le test est vérifié, sort du 
sous-programme (c’est une instruction de 
retour). 


Remarque utile: Si lors de I* as- 
semblage d'un source vous obtenez le 
message d’erreur «lump Too Rig» dans 
un morceau de source de ce type: 
...source avant le lest 
?A=0 A 

GOYES NATHALIE 
...source après le test 
vous devez, pour pouvoir correctement 
l’assembler, le modifier de la manière sui- 
vante: 

...source avant le test 
?A#0 A 

GOYES B RI SS ET 
GOTO NATHALIE 
*BRISSET 
...source après le test 

On peut ainsi remplacer n' importe 
quel test par son contraire... 

(5) Quelques exemples commentés 
Inversion vidéo de l’écran 
«GOSBVL 0679B %Sauvegarde des re- 
gistres utilisés par la machine 
00=8068 D % ad res se où est stockée 
l'adresse de l'écran sur 5 quartets, pour 
HP48G(X) %à remplacer par 7050E pour 
une HP48S(X) 

( =DAT0 A %C A=adresse de 1 écran 
D0=C %DO=adresse de TécranLC 37 
%boucle 38 (56 en décimal) fois, pour 
passer sur toutes les lignes de 
l 'écran. *BOUCLE % L ne ligne fait 34 
quartets de long, soit 16+16+2 (tout en 
déc i m a I ) 

A=DAT0 W 9fl.it 16 quartets A=- A- 1 W 
%Opérations logique NO f: inversion vi- 


DAI O-A W % Réécrit les 16 (décimal) 
quartets 

00=00+ 16 9f Avance le pointeur écran 
pour traiter les quartets suivants 
A=DATÜ W 

A=-A~l WDATO=A W % Recommence 
avec les 16 (décimal) quartets suivants 
00 = 00 + 16 
A=DAT0 B 

A--A- 1 BDATO=A B % Termine avec les 
2 cjuartels restants 
00 = 00 + 2 

C-C-l B % Une ligne de moins à traiter 
GONC BOUCLE 9f Si ce n'était pas la 
dernière ligne, recommence la boucle. 
GOSBVL 06702 % Récupère les registres 
utilisés par la machine 

GOVLNG 12002 %Rend la main au sys- 
tème 

@» 

Assembiez-le et exécutez-le, vous 
serez encore une fois surpris par I" instan- 
tanéité du phénomène langage machine... 


Iden licite de deux objets 

Ecrivons un programme permettant de tes- 
ter si deux objets placés aux niveaux 1 et 
2 de la pile sont les mêmes: il supprime 
ses deux arguments et renvoie la chaîne 
«OUI» si les objets sont les mêmes et 
«NON» s'ils sont différents. 

La grosse ruse employée dans ce pro- 
gramme est que lors d’un GOSUB, 
l’adresse de retour, c’est-à-dire l'adresse 
suivant immédiatement le gosub en mé- 
moire, est stockée dans le dernier étage 
de la pile RSTK. Cela permet à la ma- 
chine, lors d'une instruction de retour, de 
savoir où elle doit revenir, en dépilant la 
valeur de retour. Par notre dépilage ma- 
nuel avec l'instruction C=RSTK, on ré- 
cupère l’adresse où sont stockées les 
chaînes «OUI» et «NON», ce qui permet 
de les placer sur la pile... 

«GOSBVL 0679B 
c k Récupère les adresses des objets 
C=DAI I A %C=adresse de l’objet au ni- 
veau 1 de la pile 

R0=C A %R0 A=adresse de l’objet au ni- 
veau I de la pile 

GOSUB TAILLE 9f Calcule la taille de 
l’objet au niveau I de la pile 

B=C A %Stocke la taille de l’objet du ni- 
veau I de la pile 

1)1=01+ 5 %D1 qui n’a pas été modifié 
pointe maintenant sur le niveau 2 de la 
pile 

C ?=I)ATi A %A=adresse de l'objet au ni- 
veau 2 de la pile 

R î=C A %RI C=adresse de l'objet au ni- 
veau 2 de la pile 

GOSUB TAILLE %Calcule la taille de 
l'objet au niveau 2 de la pile 

?B=C A % Comparai, son des tailles des 
objets 

GOYES OK %Sinon les objets sont 
forcéments différents, on le sait 
GOTO DITNON 

^Comparaison des deux objets: 

C=R() A %Récupère l'adresse de l'objet 
au niveau I 

D0=C A 9c DO pointe sur l'objet du niveau I 
C=RI A 

1)1 =C A %Fait de même avec DI pour 
P objet du niveau 2 
* BOUCLE 

C=DAT0 I %Lit un quartet de l'objet du 
niveau 1 

D0=D()+ 1 %avance son pointeur pour- 
pouvoir lire le quartet suivant plus tard 
A=DAT ! I 

DÎ=D1+ 1 %Fait de même pour l’objet 
du niveau 2 

?C=A P %Test l’égalité des quartets lus 
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(P= 0 par dclaut...) 

GOYES OK2 %S' ils sont différents, les 
objets le sont aussi, donc: 

GOTO DITNON 
*OK2 

B=B-1 A %On vient de traiter un quartet 
de plus 

'.'B#!) A %Reste-t-ii des quartets? 

GOYES BOUCLE %Si oui, on continue 
la vérification 

%Sinon, les deux objets sont forcément 
les mêmes 
GOSUB OUI 

$C2A20B0000F45594 ^Correspond à la 
représentation interne de la chaîne «OUI» 
*QUI 

C=RSTK %Récupère l’adresse de la 
chaine «NON» 

GOTO FIN %Va la mettre sur la pile... 

* DITNON 
GOSUB NON 

$C2A20B0000E4F4E4 % Correspond à la 
représentation interne de la chaîne «NON» 
*NON 

C—RSTK %Récupère l’adresse de la 
chaine «NON» 

*FIN 

A=C A % Stocke l’adresse C A dans A A 
GOSB VL 067D2 %Récupèrc les registres 
de la machine (modifie C A et pas A A) 

D 1 ~D 1 + 5 %Effeetue un DROP en disant 
à la machine qu’à partir de maintenant, 
l'objet 

%du niveau 1 n’existe plus 
D=D+ 1 A % Augmente le registre de mé- 
moire libre de 5, puisqu'un niveau donc 
une adresse 

%a été supprimée, et qu'une 
adresse est codée sur 5 quartets. 

DAT1=A A %Place la chaîne «OUI» ou 
«NON» sur le nouveau niveau 1. ex-niveau 

2 

GOVLNG 12002 %Rend la main au svs- 

« 

tème 

*TAILLE 

%Sous-programme qui calcule la taille 
d’un objets pointé par C champ A 
%Remarque: ce sous-programme ne mo- 
difie pas D 1 et B 

D()=C %D0-adresse de T objet dont on 
veut connaître l'adresse de fin 
RSTK=C %Stockage temporaire de 
l’adresse de début de l’objet 
GOSBVL 03019 %Calcul l’adresse de fin 
d'un objet dont l’adresse de début est dans 
DO 

%1’adresse de fin est 
renvoyée dans DO (merci le 


désassembleur.,.) 

ADOEX %A=adresse de fin de 1 ‘ objet 
C-RSTK % Récupère l’adresse de début 
de l’objet 

C=C-A A %C~laille de 1 ’ objet en quartets 
RT N 

@» 

Avant d’assembler ce programme, 
n’oubliez pas de mettre deux objets sur la 
pile, ça peut toujours servir... 

(6) Ruses à employer 

Compatibilité S et G 

Vous êtes les futurs programmeurs 
qui allez assurer la relève des «vieux» que 
nous sommes. Alors autant que vous pre- 
niez de bonnes habitudes tout de suite: 

Pour assurer une compatibilité des 
HP48S(X) et des HP48G(X>, il faut gar- 
der à l’esprit que certaines adresses ont 
changé de place, mais pas toutes. En fait 
ce sont beaucoup les adresses de sauve- 
garde qui ont bougé de la S à la G, en 
gros tout ce qui était en 70000 sur la S est 
passé en 80000 sur la G Les adresses des 
sous-programmes, vous avez pu le cons- 
tater dans les exemples, n’ont elles, pas 
bougé. 

Alors que faire? Ecrire une table 
dans son programme, table que l'on va 
consulter en fonction de la machine sur 
laquelle on fonctionne? Eh bien non, il y 
a beaucoup plus simple, en fait, aussi in- 
croyable que cela puisse paraître, les ma- 
chines contiennent cette table de conver- 
sion!!! 

Exemple: Vous avez pu constater 
dans l'exemple d’inversion vidéo de 
l’écran que l'adresse de sauvegarde de 
l’adresse de début d’écran n'étaient pas 
les mêmes sur S et sur G. Vu que des rou- 
tines dans la ROM de la HP font référence 
à cette adresse de sauvegarde, et que ces 
routines iront pas bougé (c’est unique- 
ment l'adresse à laquelle elles font réfé- 
rence qui a changé), pourquoi ne pas aller 
lire cette référence à cette adresse de sau- 
vegarde directement au sein de ccs routi- 
nes? Il n’ya plus qu’a : voici un morceau 
de source à bien retenir: 

1)0= 131E8 %adresse d’une référence à 
l’adresse de sauvegarde commune aux 
HP48S(X) 

%et aux HP48G(X) 

C=DAT0 A %C=7050E sur S et 8068 D 

sur G, le tour est joué! 

puis le source continue comme tout à 

l’heure: 

D0=C c â DO pointe sur la sauvegarde de 
l’adresse écran 


C=DAT0 A %C=adresse de l’écran 

En gros, pour assurer la compati- 
bilité, on écrit deux lignes de plus. Que 
sont ces deux lignes exécutées en une frac- 
tion de seconde grâce au langage machine, 
comparé ail confort d’utilisation d'un pro- 
gramme compatible sur deux machines 
différentes? 

Le GOSUB sans retour 

Entre programmeurs, il existe des 
concours de programmation (par exem- 
ple l’on doit écrire un sous-programme en 
langage assembleur qui trace une ligne) 

Ces concours sont basés sur deux 
critères de sélection: la vitesse d' exécution 
et la taille du sous-programme. 

Exemple : Voici le sous-pro- 
gramme écrit par HPMAD permettant de 
calculer dans C W la racine carré de A W; 
c=o W 
C=C-1 w 
*LOOP 
C=C+2 W 
A=A-C W 
G ON C LOOP 
CS RB W 

je vous invite à vérifier que ce 
sous-programme fait bien ce qu'il doit 
faire, remarquez au passage qu’il ne fait 
que 1 1,5 octets. Par contre, il est très lent 
sur les grands nombres... 

Revenons à nos moutons, je vais 
vous donner des petits trucs bien utiles 
pour gagner en vitesse et en taille mémoire 
dans la majorité de vos programmes: 

- On ne met jamais de RTN après un ap- 
pel de sou s- programme: 

Le source suivant: 

...source avant l’appel 
GOSUB SSPRG 
...source après l’appel 
*SSPRG 

...début du sous-programme 

GOSUB GAG 

RTN 

est rigoureusement équivalent à celui-ci: 

...source avant 1 appel 

GOSUB SSPRG 

...source après l’appel 

*SSPRG 

...début du sous-programme 
GOTO GAG 

Le pourquoi du comment est ex- 
pliqué au début de l'exemple portant sur 
l identicité de deux objets. Procédez pas 
à pas, vous comprendrez. 

- Utilisez préférentiellement L instruction 
LC à LA, elle est plus rapide et prend 
moins de taille mémoire. 

- Utilisez des GOG et des GONG 
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c]iU- des GOTO lorsque vous connaissez 
I étal de la C ARR\ au moment d'un saut, 
ces instructions sont plus rapides et pren- 
nent moins de taille mémoire, 

(7) Conclusion 

Vous voilà arrivé au terme de vo- 
ue initiation, je suis certain que vous vous 
posez encore beaucoup d’autres interro- 
gations au sujet de ce magnifique langage, 
qui permet, non sans mal il est vrai, de 


loin laire puisqu’il est rapide et qu’on ac- 
cède grâce a lui directement au coeur de 
la machine. 

Je n ai plus qu un conseil: courrez 
commander «Voyage au centre de la 
Hl 4<S», son prix (300 F) un rien décou- 
su tant au début est loin de sa valeur réelle, 
è lis te tecèle des secrets qui vous per- 
mettront, en y mettant un peu du vôtre, 
d exploiter votre IIP à son maximum, par 
exemple de protéger ou déprotéger des 


certes Seins ai rets système, de construire 
des objets définis par vous-même, de faire 
du tracé en trois dimensions en temps réel, 
de transmmettre des données à I 1200 
hauds. de télécommander votre télévision 
a\ec la HP, que sais-je encore! 

Lorsque vous constaterez qu autant 
de puissance sommeille dans cette ma- 
chine, vous comprendrez pourquoi son 
principal intérêt est quelle lient dans la 


CABLE DE TRANSMISSION HP48 


par Mickaël SAILLOT 


< — > PC 


1 ) Le câble de transmission est constitué de trois parties: 

- Un connecteur 4 broches espacées de 2mm pour la calcula- 
trice. 

-Un réseau de fil électrique, 

- Un connecteur 9 ou 25 PINS pour l’ordinateur. 

2 ) Le connecteur de la HP48 

Connecteur Diodes IR 
o o o o O O 
12 3 4 

3 : Broche de réception des données 

- . Broche de transmission des données 

4 : Masse logique 

I : Masse mécanique 

3°) HP48/9P1N 

a) Numéiotation des broches sur un connecteur 9 PIN* 

12 3 4 5 

o o o o o 
0 0 0 0 
6 7 8 9 
Connections: 

HP 

3 

o 


9-PINS 

— 3 


4 


5 


I 


~ Blindage du connecteur 


4 ) HP48 / 25 PINS 

a) .Numérotation des broches sur un connecteur 25 PIN* 

12 3 4 5 6 7 8 9 10 1 1 12 13 

o o o o o o o o o « .) o o o 
0 o o o o o o o o o o o 

14 15 16 17 18 19 20 21 22 23 24 Z5 

b) Connections: 

HP 25-P1NS 


3 
2 

4 


- 3 

- 7 


_ 0 . . ^ \ “ Blindage du connecteur 

^ ) La HP 48 possédé une interface de transmission série 
□synchrone, une interface UART (Universel Asynchronous 

RecelVer 1 i ' ansmiUer) ’ <l ui lui permet tic communiquer avec tou- 
tes les machines possédant une interface série RS2 42 


C ela permet de commander les systèmes électroniques ayant 
Lira mteitace RS2e2 à condition d’avoir correctement configuré 
le port série de la calculatrice ( voir SETUPJOPAR.PRTPAR) 
en accord avec le système de transmission de l’appareil. 
Voyons comment il est possible de transmettre des données: 

Il faut définit d abord 3 états logiques: 

! Liai I qui correspond à une tension négative. 

I état 0 qui correspond a une tension positive. 

- I ctat X qui correspond a une tension nulle. 

Poui envoyer un octet, on commence par envoyer ! bit de départ 
( 0 ), puis les données et enfin 2 bits de stop ( I ). 

Voyons cela sur un exemple : 

Si on veut envoyer l’octet #8Fh: 

#SFh s écrit 1 000 î 1 ] 1 en binaire , on envoit donc 

- 1 bit de départ 0 

- 8 bits de données I I I I 0 0 0 I ( On va du bit le plus 
bas au bit le plus fort ) 

- 2 bits de stop 1 1 

D un point de vue électrique on aura : 


+V 


0 Volt 


-V 


— 1 
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0 3 1 1 I o o 0 1 I 1 

Bit de ry * t | 

Bits de 

Départ Bits de Données Stop 

Les valeurs des tensions aux différentes broches : 4 

Sui lu broche transmission, la tension est de +/- 3 0 V selon 
l’état ( I ou 0). La tolérance est 2.5%. ' 

-Sui la broche de réception, la HP perçoit un état 0 si la tension 

est comprise entre + 1.0 V et + 15.0 V ; elle perçoit un état 1 si la 
tension est comprise entre -15.0 V et +0.3 V. 

Maigre la marge importante obtenue pour ces tensions les va- 
nations entre chaque bit doivent être inférieures à 2.5%. 

L impédance sur la broche de réception doit être comprise entre 
.->.<> kOhms et 7.0 kOhms avec une tolérance de 2.5% 

Enlm ; ^ UOSIIOn >°gtciel, il y a l’excellent soft de communica- 
non KFRMI V tombé maintenant dans le domaine public et que 
vous pouvez acquérir auprès de MICROCARDS (30F en tim- 
bics, disquette et port compris) ou gratuitement sur les serveurs. 
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LIAISON HP 48 < > MINITEL 


,4 la demande de nombreux lecteurs , nous publions ici le schéma de liaison entre une HP48 et un minitel. 
Amis II Pistes y à vos fers à souder !!! 



Prise minitel (face) 


Prise HP (face) 


9 

jL 

4 5 
1 3 

■B * 

ICI) 


1 ) Réception par minitel 

2) Masse signaux 

3) Emission 

4) Périphérique (inutilisé 

5) Alimentation 



1 ) Masse châssis 

2) Transmission par HP 

3) Réception 

4) Masse signaux 


L opération de câblage nécessite 2 résistances de valeur 47 K ohms, notées R 1 sur le schéma, une résistance de 
27K ohms notée R2 et 2 transistors de type 1711 ou 2222 ou équivalent. 



mi ni ici (5) 


mini ici (3 ) 



minitel ( 1 ) 


masse 


La seule petite difficulté sera de vous procurer le connecteur 4 points pour la HP. A titre d’information, on 
trouve ce type de connecteurs chez des importateurs en produits électroniques. Sinon, il vous restera la solution 
d'en "bricoler" un avec du connecteur plus standard (voir votre marchand d 'électronique). 

Autre solution, commander le câble tout monté et testé chez MICROCARDS (disponibles à partir de juillet au 
prix de 245F pièce avec soft sur disquette) 
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bénévole spécialisé dans les pockets 
SHi||^PCE500|H|i8, PSION, Laptops ... 
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JEU DE TENNIS SUR HP 28S 

(BIARBALL) 

^ t zzxziitzz z r ,es r 

bZbT^ZZ- ., TiTüÏT, <0=trh m,,idC ,=mpide 2=m0ye " 3mkttt *** lent > e ' amir te programme 

Z U T\ m en,r 7 ce ‘ hien suim » 

J US pi ogt ammes A SS R et (Hkk lors de la saisie d'au autre jeu, passer à l'étape V. 

I —CREATION DU PROGRAMMEASSL 
Rentre/ ce programme SANS ERREUR: 

<< _> C « HHX <<w 1 C SIZE FOR X «#» CX I + DUP SUB C X X SL B f + 

S I R - > B ->R CH R + 2 STHP 2 # 8253h SYSEVAL #4F3Dh SYSEVAI » >-» 

Stockez- le dans ASSL. 

M — CREATION DU PROGRAMME CHKL 
Rentre/ ce programme SANS ERREUR: 

« -> C « H EX 64 STWS #0h I C SIZE FOR X «#» C X DUP SUB + STR > 

X # + NEXT » » 

Stockez-le dans CHKL. 

III —CREATION DU PROGAMMEASSR 

Rentre/ la chaîne suivante SANS ESPACE NI SAUT DE LIGNE: 


« 


/6L2U 0C8E1 I E3C0 69C20 F6000 8F 180 50147 068F7 2F40A F2306 EE474 

81L06 E68F9 38200 7D507 13606 13516 914 A3 103 H A 31909 F A 70 3 07F AI 
59016 1 170C D5CD8 DDEDD 109F2 0 


« 



Dupliquez la chaîne et vérifiez-la avec CHKL. Si le résultat est différent de ftpm ak uuTT" ! * ! 

le résultat (les 3 System Object) dans ASSR. Ensuite, purgez ASSL. ’ L ' J nu " ’ enltee ' reconin,ence/ cette è,a pe. Sinon, exécute/ ASSL et stockez 

IV — CREATION DU PROG RAM M E CH KR 

Rentrez la chaîne suivante SANS ESPACE NI SAUT DE LIGNE - 


« 


sr 

Dupliquez la chaîne et vérifiez-la avec CHKL. Si le résultat est différent de ft l noKRh ,n „ -, ' , 

le résultat (le #01, DUP + SWAP System Object) dans CHKR. Ensuite pumer CHKl' ' CnlreC ’ reCümmen «/. cette étape. Sinon. éxécutezASSR et stockez 

V — CREATION DU PROGRAMME BRDBL 

Rentrez les chaînes suivantes SANS ESPACF NI SA I FT ne i rnvr v - , 

CHKR. Si I» résultat tfc, pas edui iudiepté. i, fa,,', 'retapa, ,a dtamei A ^ 

^ '^«C 402A2 A2A2A 2 A2A 2 A 5S ,, e^A.tn*,™ 

44514 94255 40202 3547 D 23495 25ED2 I I6As'a».' i M m ^ WaB 02020 2W2 -’ «93A 0C495 34545 402D4 94C49 

079CB 03C0A 0ED2I 16709 079CB 0E57A 069C2 OB840 07F42 misa A5(K5 , V ''' ' ! ,9C BO ” 5 E»” 0 M'» 5W67 03COAOED2I K, 709 

C 1U3SAC9084I6F0 03ICI 96041 851.3! I 0 IHI 00007 C5076 90863 607D8 MFSeI 43 1 \ ) 179 mj , J , 4 ” 6 ' “3-^ ! S Jl' 5- U- .l " 7762 2 A6E5 2EI13 f' 4116 ' 6 " rC( ' 
801 CF 96F2E OO O 007 d^)i".308 62E^7^93^ lV^ 3 ^^() 0 7 ('a^|' 7 }ja 7 519)30 40KF6 90C4K)' 1 32.72 008 13 0801 1 8050' 3 2 tKI4 

Àb2D»Td C 5 S - r, ^ ^ 90328 FBI3AD 2,080 

mn S -0 ' 

D7BB1 974F.0 ED2I I A37AO 5B9E0O9F20 ' CHKR: «2<>A9h ° ° F4 N ' 67 ° 2K3E0 76C2 ° 74111 50WH (w ™ 8RE0 44BBI 954E0 

ÎZZZ ZTnSS IZ7 M,'™ 0 " 5 + - **'**»**' » «“« -«*. ' ériticz-la avec CHKR. si le résulta, es, #8H873Ch. 

R EM ARQUES : F ' 11 S q “' à ^ ASSR « s '" cta ^l« «M »— par R.>B -> V « ORDZ ..., dans BRDBL. 

flre Uti ' iSé "" 0, " ErammC »-* “ «« «i»- '4 «de Vis, T dessus, i, faudta terminer votre session par 

- " CS ' b ° n * " e <** purger ASSR « <:HKI! «r ™» »w pas » refaire les étapes I à IV en entrant un autre jeu. 
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PROGRAMMES POUR HP 48 


de Kari ni AL A F' ‘ 


Programme permettant la résolution des équations du second de- 
gré (beaucoup plus pratique que HPSOLVE). 

« ->ABC 

« ‘B A 2-*A*C’ ->NUM -> 

« « EQ: « A + « X A 2+ « + B + « X+ « + C + 1 EQDEG2 ‘ STO 
‘ ('B- V )/(2*A) ‘ ->NUM ‘ XI ‘ STO ‘ (-B+ )/(2*A) ‘ -> NUM ‘ X2 

i, 

STO CLLCD « RESOLUTION 2ème DEGRE « I DISP 3 FREEZE 
‘ EQDEG2 ‘ RCL 2 DISP « : « -> STR + 3 DISP « XI :» XI -> STR 
+4 DISP « X2 :» X2 ->STR + 5 DISP 0 WAH' DROP 1 EQDEG2 ‘ 
PURGE 

» 

» 

NOTICE : Entrez les coefficients dans la pile et exécutez le programme 



Calcul du produit vectoriel de deux vecteurs (biou tri-dimentionnel). 
Cette version ne marche pas avec les expressions svm ludiques. 

« RCLMENU ‘MZW’ STO { { «PROD» } { «VECT» } { «RY»} { 
«AKP» } 

{ } { «1994» } } MENU «ENTRER VECTEURS» { «:V1: 

:V2" {10} ALG } INPUT OBJ -> OBJ -> DROP OBJ -> DROP 
-> XI Y1 ZI 

« OBJ -> DROP OBJ -> DROP -> X Y Z 
« CLLCD « PRODUIT VECTORIEL:» 4 DISP « « ‘ Y*Z I -Z*Y1 

EVAL ‘Z*X1-X*Z1’ EVAL ‘X*Y1-Y*XU EVAL->V3+5 DISP 

» 

» 0 WAIT DROP *MZW’ RCL { CST MZW } PURGE MENU 

» 


END 

N EXT ‘XS’ EVAL ‘X’ STO ‘CXS’ EVAL ABS 
IF 21 = 

THEN ‘CXS 7 EVAL 
J F -2 1 == 

THEN «SUITE DECROISSANTE» 5 DISP 3 FREEZE 
ELSE «SUITE CROISSANTE» 5 DISP 3 FREEZE 
EN D 

ELSE «SUITE NON MONOTONE» 5 DISP 3 FREEZE 
END 

» } } 

{ «EXIT» {« ‘B’ RCL { A B CXS CST F X UO XS } PURGE MENU 
» } } } MENU 

» 


Version avec expressions symboliques. 

<<->X Y Z XI Y1 ZI 

« ‘Y*Z1-Z*YI* EVAL ‘X’ SWAP - ‘Z*X1-X*ZU EVAL 
‘Y’ SWAP = *X*Y1-Y*X1 1 EVAL ‘Z’ SWAP = » 

Notice : Notez les coordonnées (X,Y,Z) des deux vecteurs dans la pile 
et exécutez. 


NOTICE : Pour des raisons de temps évidentes la variation est testée 
sur les 20 premiers tenues. 

Version améliorée de l)->R de la calculatrice (fraction ) 

« ->A «A 180/ E VA L ->Q * » » 

Notice : Entrez l’angle et exécutez. 


Suites, programme permettant de trouver les termes d’une suite 
récurrente ( Un+l=f(un) J, donnant la variation. 

«RCLMENU ‘B’ STO ‘X’ PURGE CLLCD { { «SUITES» } { «BY» 
} { «AKP» } 

{ } { «1993» } { «1994» } } MENU «ENTRER 1er TERME» «:UO:» 
INPUT OBJ -> 

EVAL «ENTRER FONCTION» { «:F(Un): ‘« { O O } ALG } INPUT 
«‘« + 

OBJ-> EVAL O ‘A’ STO ‘F’ STO ‘UO’ STO CLLCD «SUITE:» t DISP 
«UO=» ‘UO’ 

EVAL + 2 DISP «Un+1=» ‘F’ EVAL + 3 DISP 3 FREEZE ‘UO’ EVAL 
‘X’ STO 

{ { «Un+1» { 

« «U» ‘A+l ’ EVAL + «=» + ‘F’ EVAL EVAL + 4 DISP 3 FREEZE ‘F’ 
EVAL 

EVAL ‘X’ STO ‘A* ->NUM 1 + ‘A STO 

» } } { «FRAC» { « ‘X’ EVAL ->Q «U» ‘A’ EVAL + «=» + SWAP + 
4 DISP 

3 FREEZE » } } 

{ «VA RI» { 

« ‘X’ EVAL ‘XS’ STO O ‘CXS’ STO l UO’ EVAL ‘X’ STO 
0 20 

FOR B ‘F’ EVAL ->NUM DUP ‘X’ STO 


Recherche de l’équation de la tangente en un point. 

« -> F XO « F ‘X’ PURGE X -> Fl «XO ‘X’ STO «‘Y=» 

Fl EVAL «*X+» + + F EVAI. X EVAL. Fl * - + «‘«+ 

OBJ->COLCT ‘X’ PURGE » 

» 

Notice : Entrez la fonction et le point, exécutez. 

Linéarisation de cos A n et sin A n. 

« 0 0 -> N K « « N K COMB N K 2 * - » 

«IF DUP 
THEN ‘T’ * COS * 

ELSE DROP 2 / 

END 

» « 2 N l - A / » 

«IF2MOD 
THEN NEG 
END 

» -> PI P2 P3 P4 « { { «COS A » « ->N « ‘COS(T)’ N A 0 0 N 
2 / FLOOR FOR K PI EVAL P2 EVAL + NEXT P3 EVAL = » » } 

{ «SIN A » «-> « ‘SIN(T)’ N A 0 0 N 2 / FLOOR 
IF N 2 MOD 

THEN FOR K PI EVAL ‘T’ * SIN *KN 1 - 2 / + P4 EVAL + NEXT 

ELSE FOR K PI EVAL P2 EVAL K N 2 / + P4 EVAL + NEX T END P3 
EVAI. 

= » 


IF ‘F’ ->NUM < 
THEN ‘CXS’ 1 STO+ 
ELSE ‘CXS’ 1 STO- 


»}{}{}{}{ «EXIT» « CONT » } } FM EN U H ALT 2 MENU » 

» » 


NOTICE : Entrez le degré et appuyez sur «sin A » ou «cos A », 
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FOX 

par LAURENS Denis 

FOX est un petit jeu d’action au but assez simple. 


rNUUUE UE JEU 

tetouèh^Tou 0 " 5 Ch0iSiSSeZ VOtre ° Pti0n ’ C ’ eS ' à direinueur débU,ant ° U j ° ueur eonf,rmé - Le - M* suivant l’appui sur 

Sur le bord gauche de l’écran vous est indiqué le niveau de tableau que vous allez accéder, puis un appui sur une touche et 
les U pe'rcuter n P aCt10 "' ^ * b ° rd d ’ U " Mlic0ptère survolant des murs de différentes tailles. Le principe : éviter de 

sim pîe pression IL h“ £T + !“ ‘ P, “* de b ° mbeS P "" < “ a “ d """ de héli “ p “™ 1“ vous .arguez par 

Vous disposez de 3 vies, pour accéder au prochain tableau il vous suffit de détruire tous les murs 
Votre helicoptere descend petit à petit en augmentant sa vitesse. 

ATTENTION : Pour stopper le jeu, un seul recours, il faut appuyer sur les touches ON-C. 

appUyer .f ur 18 t0UChe ° N Seule ’ V0 " s Hsc l uerie * d ’ a 'oir quelques désagréments à la r.n du tableau 
1 , il f S , a r SOn ’ SU,r “ de <lésarraer '* FLA( ’ SON, mais votre hélicoptère aura une vitesse supérieure 

(BUFF^R C Vo a E e SERI^ e BITMAT^CRAN\! , . a ™ P *°* «* * « — * quelques adresses. 

Ce programme assemble les chaines de caractères désignant un objet décompilé autrement dit il le compile. 


ASS 

« DUP SIZE 2 / .5 + IP «GROB 1 « SWAP + « « 
+ S WAP + OBJ # 40 1 7h 

SYSEVAL # 56B6h SYSEVAL DROP NEAVOB > 


DEBUT ( #274F ) 

« D9D20 

F8040 

12040 

F2I40 

F8040 

85705 

C2A20 

13000 


00D1 1 
83405 
CCD20 
79000 


8FB9760 GOSBVL # 0679B 
8F51C10 GOSBVL # Ü1C1 5 
8F7DB 1 0 GOSB V L # 0 1 BD7 


1FB0207 1)1 (5) # 7020B 
3430000 LC (5) #00003 

1 45 DAT I =C A 

80822800 RET LA (3) #008 

7510 GOSUBTEST 

414 GOC DEBUTANT 

80822400 L.A (3) # 004 


7600 GOSUBTEST 

432 GÜC CONFIRME 

5 ï E GONC RET 


CONTINU 

8F75D00 TEST GOSBVL #00057 
32200 LC (3) # 002 

8FCEEI0 GOSBVL 01EEC 



; SAUVER LES REGISTRES D0, DI , B, D 
; EFFACE LE CONTENU DU GROB MENU 
; ETEINT TES INDICATEURS 
; CHARGE LE NB RE 
; DE VIE POINTE 
; A L’ADRESSE DI 


; TEST L’ACTION DES 
; TOUCHES 1 ET 2 

; SI CARRY = 0 ALORS RET, SI=1 


;VIDE LE BUFFER DU CLABIER 
;OUT=C 

;«ET LOGIQUE» ENTRE CETTE 


0E32 

C=C&A X 

93 B 

? C # 0 X 

00 

RTNYES 

01 

RTN 


REPONSE ET «IN» 

;«ET LOGIQUE» ENTRE CETTE 
REPONSE ET «IN» 

;LA TOUCHE EST-ELLE ENFONCEE 
;RETOUR DE SOUS PROGRAMME, 
AVEC: BIT CARRY ARM E 
;RETOUR AVEC BIT CARRY 


' -■ — ‘ h- IU.U T j, a- J- 


39 FF' F 00 1 000 CONF1 RME LC (A) # 0000 1 00F FF 

4EO GOC SORT ;C=Vn ESSE, DIFFICULTE 

39FFF 0030000 DEBUTANT LC (A) # 0000300FFE 

IF! 0207 SORT DI (5) # 70201 ;LE REGISTRE C 

DAT1=C 9 ;EST CHARGE A L’ADRESSE 

POINTEE PAR DI 



76BA1 
3 FC H 
83405 
56F1 4 
F EF 30 


FEF30 

250F4 


BECF1 

CCD20 

25300 

8FB9760 GOSBVL #0679B 
8FFFB10 GOSBVL # 0 i B FF 
30F LC (1) # F 

8082102 LA 12) #20 

ÎBE5917 DO (5) # 7195E 


; EFFACE LE GROB ECRAN 


;DO POINTE SU R LA 64 LIGNE DE 


8D34150 GO VLNG #05143 
B, D ET EXIT 
B2130 « 

FOX (# 2155 ) 

« D9D20 


;RESTAURE LES REGISTRES D0, DI, 


1 540 LIGNE DATO-C P 


LA BITMAP ECRAN 
;CHARGE LE REGISTRE C A 


160 

A6C 

55F 



DO=DO+] 
A=A-I B 
GONC LIGNE 


L’ADRESSE DO 

* 

;ON REPETE 2 1 FOIS LA SEQUENCE 

; re Tour si carry=o 
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DI HO 

34C3917 LC (5)# 7193C 
06 BATI RSTK-C 


134 

DOC 


1F63100 

DI (5)# 00136 

;D1 POINTE SUR L’HORLOGE 

147 

C=DÀT1 A 

;C - RAND (F) 

20 BAT2 

P-O 


80825FF18FF 

BAT3 LA (6) # FFS 1 FF 


148 

D AT 0= A B 

;LE PROGRAMME BAT3 

18F 

DO=DO- 1 0 

;AFF1CHE UN GROB 21,1 * 3COL 

18F 

DO=DOHÜ 

;A LA 63 LIGNE DE LA BITMAP 
ECRAN 

181 

DO“DO-2 

;CE GROB REPRESENTE UNE CASE 
DU MUR 

E5 

B-B+l A 

;B - NBR DE COL 

OD 

P-P-l 

11 

ÜD 

P-P-l 

* 

88A 

?P# A 

;TANT QUE P # A ON RECOM 
MENCE 

ÜE 

GOYE BAT3 

ÿ 

A2E 

CC-1 XS 

;DEC C, ON EMPILE C * FOIS DE 
CASE 

58D 

GONG BAI 2 

;AFIN DE CONSTITUER LE MUR, 
TESTE CARRY 

07 

C-RSTK 


818F22 

003 A 

;ÏNC C DE 3 

20 

PC 

■h 


8082ID5 LA (2) H 51) 
9E6 


? A>C B 


.CONTROLE LA POSITION DES 
MURS 

:S1 ON SL TROUVE DANS PICT ON 


3B CK)YE BATI 

1BCF107 DO (5) #701 FC 
D4 A=B A 

] 40 D ATO= A A 

3400117 LC (5)# 71100 


CONSTRUIT 

;LN AUTRE MUR 3 LIGNES PLUS 
LOIN 

;DO POINTE SUR LF. BUFFER DU 
PORT SERIE 

;AU NBR DE COL DE FOUT LE 
GROB 

;CH ARGE LE REGISTRE A A 
L’ADRESSE POINTE PAR DO 
;DO POINTE SUR LE DEBUT DE LA 


BITMAP ECRAN 

8082E10QC 13006250054 RETa LA (F) # 4500526003 1 C00 1 ; 

7240 GOSUB DESSIN ; 

881 ? P # 1 ; 

5E GOYE RETa ; 

20 P=0 ; 

8082EDFFDF 1 0008FFFFF RETb LA (F) ;# FFFFF80001FDFFD ; 

7320 GOSUB DESSIN ; 

881 ? P;# 1 ; 

5E GOYE RETb ; 

20 PO ;LES PROGRAMMES RETa, RET b, 

RETc 

80829080200EFFO RE lc LA (A) # 0FEEÛÔ2080 ; 

; AFFICHENT L’HELICOPTERE SUR 
L’ECRAN 

;1LS CONSTITUENT UN GROB 5J JG 
* 8 COL 

;LE SOUS PROGRAMME DESSIN 
^CHARGE LES VALEURS SUCCESSI 
VES 

;DU REGISTRE A 
;A L’ADRESSE POINTEE PAR DO 
;SUR 5 QUARQUETS 
;1E REALISE AINSI UN AFFICHAGE 
;LIGNE PAR LIGNE 
; SUIVANT LES VALEURS DE P 
;LE REGISTRE A SE COMPRTE 
-COMME UN REGISTRE A 

; RETa GROB 51.1 * 3COL, RETb 5 El * 

;RETc 5E1 * 2COL, RETOUR DE 
SOUS PROG 

;SAUVE LA VALEUR COURANTE DE 
L’AFFICHAGE 


7900 

GOSUB DESSI 

886 

? P # 6 

AF 

GOYE RETc 

6C10 

GOTO CONT 

1584 DESSIN 

DATO A 5 

16F 

DO DO-H 0 

Î6F 

DO=DO+I0 

161 

DO IX) 2 

OD 

P - PH 

OD 

P~P- 1 

OD 

P-PH 

OD 

p-p-i 

DECALAGE 


OD 

p=pi 

3 COL 


01 

RTN 

06 CONT 

RSTK C 

20 PO 


3401000 

LC (5)# 00010 

D7 

D C A 

DB MUS 

CD A 


07 

C-RSTK 

;EST UNI-: ROUTINE DE SON 

D7 

D C A 

;IL ESSAI AU MAXIMUM DE 

3402000 

LC (5) # 00020 

REPRODUIRE 

;LF. BRUIT D’UN HELICOPTERE 

C3 

D DC A 

;LES 4 VALEURS SUCCESSIVES 

3400100 

LC (5) #00100 

;DU REGISTRE C REPRESENTENT 

8BF 

? D<-C A 

;UNE SEQUENCE DE DEPART, DE 

FIN 

7D 

GOYE MUS 

;UN INCREMENT DE FREQUENCE, 

81-75D00 GOSB VL # 00D57 ; 

UNE DUREE DE PALIER 
VIDE LE BUFFER DU CLAVIER 

32100 

LC (3) #001 

;CODE DE LA TOUCHE + 

80822100 LA (3) #001 ; 


801 

OU I C 

> 

8F0611Q 

GOSB VL #01160 

y 

OF32 

CC&A X 

;ET LOGIQUE 

93 F 

? CC X 

;SI LA TOUCHE EST ENFONCEE 

CARRY-1 

14 

GOYE TIR 

;CARRY=1 ALORS ROUTINE DE T1F 

07 ICI 

C RSTK 

;RECUPERAT10N DE LA 

1 Fl 0207 

LM (5) #70201 

VITESSE COURANTE DE C 
;DI POINTE SUR L’ADRESSE 

143 

A- DAT 1 A 

VITESSE 

;A= VALEUR VI TESSE 

CC BOUCL 

A ■ A-l A 

;C’EST LA BOUCLE D’ATTENTE 

5DF 

GONC BOUCL 

;DE LA VALEUR VITESSE 

134 

DO C 

;DO POINTE SUR LA VALEUR 

DO 

AO A 

COURANTE 

$ 

27 

P™ 7 

7 

1380 EF F 

DA 10- A ! 

;CHARGE LE REGISTRE A LA 

16F 

DO DO- 10 

VALEUR COURANTE 

;DK L’ECRAN, DO EST [NC DE 22 

16F 

DO DO- 10 

;DU FAIT DE LA SYNCHRONISA 

161 

IX) DO-2 

I ION DE 

; L’IMAGE EN COURS, ON EFFACE 

OD 

50F 

P- PH 

GONC FFF 

AINSI 

; 1 U * 8COL DU GROB DE L’HELI 
COPTERE 

7 

161 

DO-DO ■ 2 


142 

A-DATO 2 

; CONTROLE SI L’HELICOPTERE ES 

92 C 

? A # O XS 

; RENTRE EN COLLISION ARME 

80 

GOYE TOUCHE 

CARRY 

;SI CARRY- 1, ROUTINE TOUCHE 

E6 

OC+1 A 

;INC DE 1 LA VALEUR COURANTE 

61 FF 

GOTO REV 

; L’HELICOPTERE AVANCE D’UNE 

6BF0 TOUCHE 

GOTO CRASH 

POSITION 

07 TLR 

C- RSTK 

; SAUVE LA VALEUR COURANTE 

D5 

BC A 


06 

RSTKC 


80824 CCOOQ 

LA (5) # OOOCC 

7 

C8 

B B+A A 

;ON PLACE LA BOMBL 

D9 

OÜ A 

; SOUS L’HELICOPTERE 

134 

DOC 


20 REPART 

p-o 


80821 FF BOMB LA (2)# FF 

;GROB DE LA BOMBE HT * 1COL 

1580 

DATO= A 1 

;ON AFFICHE LA BOMBE 

1 6F 

DODO 10 

T 

16F 

DO-DO 10 

; > SYNCHRONISATION 

161 

IX.) DO-2 

g ‘ 

OD 

PP- 1 

1 

88E 

? P # E 

7 

7F 

GOYE BOMB 

;TEST LA CARRY 

8082400003 

LA (5) #30000 

;C’ES T LA 

CCBOMBOUCL 

A- A-l A 

;D’ATTENTE 

5 DF 

GONC RGMBOUCL 


134 

DOC 

;DO POINTE SUR LE DEBUT DE LA 

DO 

AC À 

BOMBE 

;A=GOOOO 

22 

P 2 


1 580 BOMBEF 

DATO- -A 1 

;ON AFFICHE UN GROB VIDE 

16 F 

DO-DO i 10 

;A LA POSITION ACTUELLE DE 

1 6F 

DO DO+1Ü 

;LA BOMBE, ON L’EFFACE 

161 

DO DO i 2 

1 

OD 

P-P-l 

1 

50 F 

GONC BOMBEF 

7 

20 

P-O 


8082422000 

LA (5) n 00022 

' « 

C2 

CCA A 

;INC DE LA POSITION DE LA 
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FOX pour HP48 


51 if niode$<>» curseur» 
i f pp= 1 then gosub 45 
pset(x,y), pixel xorindpt 


9B2 

?C>A X 

FO 

GOYE FINO 

1520 

A= DATO P 

90C 

? A # O P 

AO 

GOYE 1MM 

639F 

GOTO REPART 

6C3F 

FINO ICI 

i Fl 0207 1MM 

DI (5) # 7020! 

143 

A- DAT! A 

CC 

A=A-I A 

141 

DAT1--A A 

IF60207 

DI (5) # 70206 

147 

C=DATJ A 

8000 

P=C 0 

\X) 

AO A 

180 

DODO-J 

OD 

P=P-J 

1 503 EFFMUR 

DATO-A X 

16F 

DO=DO+]0 

36F 

DO=DO+lO 

161 

DOOO+2 

OD 

P=P-1 

50F 

GONC EFFMUR 

20 

PO 

1520 

A=DA10 P 

908 

?A=0 p 

42 

GOYE DECDO 

8082 1 FF EGA DO LA (2) # FF 

148 

DATO-A B 

I FCF 107 DI (5) # 701FC 

143 

AHDAT1 A 

LA 

A=A-C A 

8A8 



? AO 


A 

FO 

GOYE FINI 

141 

DAT] -A A 

6C9F 

GOTO FINO 

160 DEC DO 

DO 00+1 

5AD 

GONC EGADO 

8D34150FINI 

GOVLNG # 05 143 

E6 CRASH 

COI a 

06 

RS [ 'KO 

20 

PO 

368088001 

LC (7)# 1008808 

8082101 

LA (2) # 10 

1 FO 1207 

DI (5) #702 10 

15D6 

DATIO 7 

07 CRAC C-RSTK 


134 

DOC 

06 

RSTKC 

27 

P-7 

15E3 PEPE 

C=DATO 4 

810 1 207 

GOSBVL# 70210 

I5C3 

DATOC 4 


16F 

16F 

161 


DO-DO+IO 

DO=Dü+10 

DO=DO+2 



20 

p=o 

53 

34FFFFF L (5) 1 

i FFF FF 

1 1 J 1. I 1 


A3 F, LC LOB 

CCI x 


5 CF 

GONC LCUOB 


1D41 

DI (2)# 14 

;LA BOMBE EST-ELLE EN FIN DE 

BIT C 

A6C 

A=A-1 B 

COURSE ? 

1590 

DAT U A 1 

;SI OUI BRANCHEMENT SI NON 

CBIT 0 (À) 


CONTIN UE 

96C 

? A # O B 

;A T’ON 

; FAIT MOUCHE? 

DB 

GOYE CRAC 

y 

1 FBG207 DI (5) 

# 7020 B 

; LA BOMBE DESCEND 

147 

CE 

COATI A 
CCI A 
? C=0 A 

;DÎ POINTE SUR LA VALEUR 

8AA 

VITESSE 

12 

GOYE PFRDU 

,A » VITESSE 

145 

DAT1C A 

; VITESSE = VITESSE - I 

'CHARGE LA NOUVELLE VALEUR 

8F75D00 GOSBVL #00057 

;DANS D 1 

W 99940 COP 

GOSBVL #04999 

'DI POINTE SUR LE CHOIX DE 

58F 

GONC COP 

DIFFICULTE 

;C = CHOIX 

163 

DO=DO-i 4 

;P * AU PREMIER QUARTE T DE C 

07 

C-RSTK 

CB 

CCI A 


06 

RSTKC 


6BFE 

GOTO IMM 

;DO POINTE SUR LA POSITION 

8F2D760 PERDU GOSBVL # 067D2 

D’UNE CASE DU MUR 

DO 

A=0 À 

iC’EST LA ROUTINE D’EFFACE 

8DC7530 GOVLNG #0357C 


;C ' EST LA BOUCLE D’ATTENTE 

l 

;ON POINTE SUR LA POSITION DU 

;DU SOUS-PRG, PUIS ON DEC DE J 
;CHARGE NOUVELLE VALEUR DE 

; L’HELICOPTERE EST-IL 
DETRUIT ENTIEREMENT ? 
;CARRY=4 DETRUIT 

îDl POINTE SURVALEUR VIE 
;C=VIE 

;DEC VIE DE 1 
;VIE=0? 

;SI OUI PERDU 

;SI NON CHARGE NOUVELLE 
VALEUR VIE 

ATTEND L'APPUI U D’UNE TOUCHE 
TOUCHE NON ACTIONNEE ON 
RECOMMENCE 


MENT 

;DE LA CASE DU MUR SUIVANT 
;LA VALEUR DE P REPRESENTANT 
LE CHOIX 

: choix 


B2130 


; RECUPERE DO, D1,B, D 

PI -ACE SUR LA PILE L’ENTIER 
SYSTEME A 


« 


; RE AJUSTE LA BARRE DU MUR A 
AFFICHER 

;GROB DE LA BARRE DU MUR 2LI * 
ICOL 

;ON L’AFFICHE 

;D1 POINTE SUR LE NBRE DE 

CASES EMPILEES 

;A - NBRE EMPILE 

; SOU ST RAI i LF, NBRE DE CASES - 
LE CHOIX 


;A- 1 ’ON DETRUIT TOUS LES MURS 
;S1 OUI RETOUR RPL 

;SINON CHARGE LA NOUVEL! E 
VALEUR A 

f 

;CALCULE POSITION BARRE DU 
MUR 

;PU1S ON U AFFICHE 
; RESTAURE DO, DI, B, D ET 
RETOUR RPL 


;I E REGISTRE C REPRESENTE UN 
;SOUS-PRG 

;CBIT= O O, RTN 

;D1 POINTE SUR LE BUTTER SERIE 
;ON CHARGE LE SOUS-PRG 

;DO= VALEUR COURANTE 


;C=GROB HELICO 5LJ * ICOL 
;APPLL DU SOIJS-PRG HYBRIDE 
;ON RECHARGE LE GROB 
HELICOPTERE 

;MAIS AVEC LE A- 1 BIT DE C=() 
;CE PROCEDE PERMET UNE 
iDESTRUCTJON 

;PAS A PAS DE L’HELICOPTERE 


JEU ( # C7D5 ) 

«DEBUT 1 100 FOR I «NIVEAU ■ « I 
FOR IF DEPTH 1 = THEN CLEAR 

«PERDU ..... NIVEAU :» J +DOERR FND 
TEXTNEXT» 

D’OU LES CODES A ENTRER ; 

DEBUT (# 274F) 

«D9D20F804OI 2040F2 1 40F80408 5 705 C2A20 

1 3 A344 54245545 14E44502O223A334F4E464 
9425D45400D1 1 83405CCD20790008FB97608 
F 5 1 C 1 08F 7DB ] 01 FB02073430000 1 45808228 
0075 1 04 ] 48082240076004325 1 E8F75 D0O32 
2008FC EE I OOE3293 EOOO 1 39FFF00 1 OOOO 
■4E039FFF0030000 1 F 1 0207 1 5D88D34 1 50B2 1 30» 

FOX ( # 2] 55 ) 

«D9D2076BA 1 3FC 1 1 83405 56F 14FEF30FEF30 
250F4BECFI CCD2025300 8FB97608FFFB 1030 
I ’8( )82 1 02 1 BE59 1 7 1 54016OA6C55FD 1 34C39 1 
706 1 34 i F63 1 00 J4720 8 0825FF 1 8FFI48 1 8F 1 
8F ! 8 1E50DOD88AOEA2E58D0781 8F222O8082 
H 559E63BI BOT 07D4 14034001 1 7134208082 
E I (XX ; 1 3006250054724088 1 5E208082EDFFD 
F10008FFFFF732088 1 5E2080829080200EFF 
( 3790088 6AE6C 1 0 1 5 84 1 6F 1 6F1 6I0D0D0D0D0 
! )ü 1 0620340 1 000D7DB06345000Ü8K6A7 1 007 
D73402000C3 3400 1 0O8BF7D8F75DO032 1 008 
0822 1 0080 i 8F06 1 1 OOE3293 E 1 407 1 F 1 02071 

43 CC 5DF1 34D02 7 1 5 80 1 6F 1 6F 1 6 1 0D50F 1611 
4292C80E66 1 FE6BFO07D 5 06 80824C COOOC 8D 

9 13420 8 082 ! 1 5 80 16F 16F 1 61 0D88E7E80824 
00003CC5DF1 34D022 1 5801 6F16F16IOD5ÛF2 
O808242200OC2 808229 1 99B2F0 1 52090CA06 
39F6C3F1 F 1 0207 1 43CC 14 1 1F602071 478ÛDO 
DO 1 800D 1 503 1 6F 1 6 F 1 6 1 0D50F20 1 52090842 
8082 1 FF 148 î FCF î 07 1 43EA8A8FO! 4 ] 6C9F 1 6 
05AD8D342 50E6062036808800 18082 1 0! 1 FO 

12O715D607134O627I5E38FOI2O715C316F1 
611 6 1 OD55 E2034FFFFFA3E5CFD4 1 A6C1 5909 
6CI 1 FB0207 1 47CE8 AA 12 1 458F75DOG8F999 

4058F' 1 63O7CEO66BFE8F2D76ODO8DC7530B2 1 30» 

RENTREZ LFS CHAINES SANS ESPACE ET SANS SAUT DE LIGNE 
UNE FOIS LES CHAINES TAPEES, ENTEZ DUP BYTES 

DANTS IKIEZ BIEN QUE LES CHECKSUM DHS PROGRAMMES CORKESPON- 

Sl OUI LES COMPILER AVEC LE PROGRAMME ASS 

UNF. FOIS FAIT, TAPEZ LE PROGRAMME JEU, ET I.ANCEZ SON EXECUTION. 
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RUBRIQUE CASIO FX 850/880P 

Transformez votre casio FX 850 en 880 en 10 étapes... 

POCHE COMPUTERS et CASIO News vous proposent aujourd'hui de transformer votre FX-850P en FX- 
88 OP donc de l'étendre de 32 Ko, en seulement H) étapes. Mais cette transformation nécessite une habileté et 
un matériel particulier, alors regardez attentivement les recommandations avant de vous lancer dans cette 
aventure... Enfin, nous ne pourront être en aucun cas tenus pour responsables des éventuelles pannes surve- 
nues à la suite de la réalisation de cette opération. Voilà tout est dit alors c'est parti... 


Matériel indispensable : 

- Fer à souder de puissance mini 15 W 

- Soudure étain de diamètre <= G.8 mm 

- Tournevis cruciforme de faible diamètre 

- SRAM 43256, 62256, 58256 ou compa- 
tible 32K octets ( 150 ns maximum). 
Conseils 

- utilisez un aimant pour éviter de perdre 
les vis. 

- utilisez une boite pour mettre les diffé- 
rentes pièces. 

- utilisez une éponge pour nettoyer le fer 
au fur et à mesure que le travail avance. 
10 étapes... 

1- Démonter le boîtier en laissant la pla- 
que noire. 

2- enlever les 2 piles CR2032 et la 
CR î 220, 

3- dévisser et enlever les vis de la nlaaue 



Avant 


Après 


notre. 

4- déplier la plaque noire vers le haut (At- 
tention aux fils du buzzer). 

5- extraire les 2 ressorts de couleur or. 

6- Maintenant vous entrez dans la partie 
la plus délicate de l'opération alors si vous 


Point A 

Z 

• 

Point B 

• 

e 


Les points A et B avant l’étape 10 


ne vous sentez pas vraiment à la hauteur : 
STOOOOOOOOP, vous avez la vie de 
votre machine dans vos mains... Pour les 
autres, dessoudez le circuit SRAM 8 Ko 
le plus à gauche et le plus près du con- 
necteur pour RP33 (il est souvent noté 
HM6264A). 

7- dessouder le point noté B. 

8- souder le nouveau circuit SRAM 32 Ko 
à la place de l’ancien. 

9- souder le point noté A. 

10- remettre les ressorts, la plaque noire, 
les vis, les piles... 

Les tests 

Voilà, il ne reste plus qu’à effectuer les 
tests d’usage : 

- Allumer votre machine, 

- faire un reset complet ( ALL RESET + P 
derrière la machine), 

- puis 0400 + LIB. 

Si la machine indique MAIN 32 Ko, vous 
avez réussi, BRAVO... Pour toutes ques- 
tions complémentaires concernant cette 
extension, écrivez en BALTonyCrook sur 
le serveur Eurêka (99.36.48.43,), 


CASIO News 


serveur Eurêka 
au 99.36.48.43 

bal TonyCrook 


ou à l'adresse suivante : 


CASIO News 
Anthony TARDIVEL 
La Gravelle 
35410 NOUVOITOU 


EDITEUR DE MEMOIRE (par Christophe BULLA) 

Ce programme édite sur V écran le contenu de la mémoire , mais aussi les 
adresses qui peuvent être utiles. 

10 CLS: I*=0: PRINT CHR${9) "*** OISAC 2 *** EP1TEUR-MEM * !M: ADRKSSH PAGE : 

L.OCATE 10,1: INPl'T@7;A: LOCATK0.0: LOCATE25.I/ INPI. H <sB;P: DEFSEG*P*4096: Z=0: CLS 
20 11$»’": A$="": FOR 1=01014: D=PEF,K( A+) ): I IS=i IS+R!GHTS(HEXS(I>>.2): IL 1X32 TH EN D=46 
3< ) A$=A$+CH RS( D ): N EXT 

50 Cl .S: IF Z Tl !EN 110 

100 PRINT" "HS" &H"IILXS(At" & H " R 1 G H TS ( H E X $ f P ) , 2 )" j"AS" j GOTO ! 20 

110 PRINT" "H$" &H , M[D$(HS.3,2)LEFrS(ll$,2)"&H" &1CMID$< HS, 5.2)" I"M 1 DS(H$. 9 . 2 ) 

Ml DSC I IS.7,2)" | Mlt>$( AS.8.8)" j": 

120 $=1NPUT$( I .«):CLS 

1 30 IL $=" l "OR$=”ü"THEN Z=VAi.fS): GOTO 50 

135 IL $="*" THEN 10 

140 IF$="+" THEN A=A+I5: GOTO 20 

145 IF $="-" TIIEN A=A- 1 5: GOTO 20 

150 SL’ $="/" THEN INPtJT "DECALAGE : ".Y: A=A+Y: GOTO 20 

155 IF So"H" THEN 160 LESE PRINT" Hexa > Dcci : INPUT@6;Y: IL Y<0 TIIEN Y =65536+' Y 

156 PRINT YM": GOTO 50 

160 IF $- ’D" THEN PRlNT"Ded -> Hexa ; 1NPUT@6:Y: PR I NT" & H H H X$( Y ) : GOTO 50 

170 B HEP: GOTO 50 

] ,a première chose que demande le programme est l'adresse ou vous des irez aller, et la page de cette adresse. Ci- 
dessous voici la liste des touches à utiliser et les 2 types d'écran affichés. 

1 1 ] Passe en mode DUMP 
(0| Passe en mode adresse 

| !: j Revient au début du prg pour changer l'adresse et de page 
I / 1 P( > il r e II ce luer un t lé c a \ a gc de 1 ' ad i e s se e n c o 1 1 rs 
[ + | Avance de 15 octets 
I - ] Recule de 1 5 octets 

[Ml Permet de faire une conversion I hexadécimale -> Décimale 
[Dj Permet de faire mie conversion Décimale -~> Hexadécimale 
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RUBRIQUE CASIO FX 850 / 880 P 


Interface RS232C pour FX-850/880P... 


1 — *■ ~ — <*»■ « 

Le MAX232 

Le MAX232 comme tous les circuits intégrés, est organisé de la façon suivante 
Nous conseillons grandement l’utilisation d'un support de Cl pour ce composant 

Les connecteurs 


16 


l ) 


É 


MAX 232 


H 


CASIO FX-850/880P 


PC/ST/AMIGA 
9 broches* 


PC/ST/AMIGA 
25 broches* 



Sur PC/ST/AMIGA, relier la RTS avec la CTS et la DTR 

Nomenclature 


avec la 


REG 

CS 

C1-C5 

R1-R4 

R5 

Plus.,. 


Régulateur 7805 
Condensateur tOOnF > 16V 
Condensateur 22uF 16V 
Résistances 100K 
Résistance 1 K 


Connecteur DB30 CASIO 


i 

r: 


# 


H 


M) 


Conrtet t eu r PC/ ST/ A M IGA 
25 broches 9 broche 1 : 

] 



CA&oTx d 85n;sæp P ^ rt * pile 9V - connec,eur 9 ° u 25 broches et LED Pour le connecteur 30 broches de la 
GAoiU hA-850/880P, vous pouvez contacter la société ÏAPFI à Parm i c uiucnes oe la 

après-vente II vous en coûtera environ 60 francs TTC (fiais de port compris) ^ 

Schéma pratique 



? USA 


ce es 


«GNO 
• TXD H 


RXO 



O REG 


+ 



LED 




O GND 
O RXD 
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PROGRAMMES POUR CASIO FX850/880P 

par Philippe GOURVES 



LECTURE DELA MEMOIRE: 

C. esl un programme tout simple et que beaucoup doivent avoir sous 
diverses formes. Le programme demande la valeur de départ de la lecture, puis il 
affiche sur la première ligne l’adresse, la valeur décimale de l'adresse et le carac- 
tères ASCII correspondant. 

La deuxième ligne affiche en continu sur les 32 caractères ASCII cor- 
respondant aux valeurs successives de la mémoire. 

Le programme fonctionne en continu mais il est facile de le faire fonc- 
tionner adresse par adresse en supprimant le point-virgule en fin de ligne 80 par 
exemple, 

LECTURE DE LA MEMOIRE. (215 octets) 

10 OIS: PR INT "D= ":D;:INPUT D 
20 D 1 =1 N T( D/256 ) * 256 : D2=D- D I 
30 DEFSEG=D17!6 
40 FOR A=D2 TO 65536 

50 XP-PEEKA:IF XP(32.THKN X=32 ELSE X=XP 
60 N=N+ 1 :1F N>2.9 TH EN N=0 
70 LOCATEO.O:PRINT A+D 1 ;XP;€HR${ X 
80 LOCATE N, I : PR INT CHRS{X 
100 N EXT 


LONGUEUR D’UN PROGRAMME, 

Ce programme détermine l'adresse tic début, de fin. et la longueur d’un 
programme No 0 à 9 ou de la mémoire (no 10) ; le programme esl basé sur le 
principe suivant: 

Les adresses utiles à l'ordinateur sont stokées en mémoire sur 3 octets 
successifs. Si l’octet de base est x. on peut déchiffrer ces adresses grâce à cette 
ligne: 

PEEK(tx)+PEEK(x+ 1 )*256+PEEK( x+2)*65536 

Ainsi, si on désire connaître l'adresse de fin de la RAM (AFR. qui cor- 
respond à la quantité de RAM de votre ordinateur), il suffit de remplacer dans fa 
ligne cf-dessus x par 1715. 

De même, toutes les adresses de début et de fin de programme sont stoc- 
kées dans une zone située entre 165 et 1 1 octets avant F AFR suivant le tableau ci- 
dessous: 



x début 

x l in 

mémo 

AFR- 165 

AFR- 1 62 

P9 

AFR- 1 50 

AFR- 147 

P8 

AFR- 1135 

AFR- 132 

P7 

AFR- 120 

AFR 117 

PO 

AFR- 115 

AFR- 12 


Pour utiliser ce tableau, déterminer d'abord AFR. Déterminer ensuite x 
début et x fin dans le tableau, puis- réutiliser la ligne de commandé ci-dessus pour 
avoir l'adresse du début ou de fin du programme. Le programme fait tout cela 
automatiquement. 

LONGUEUR D' UN: PROGRAMME. 03b octets) 
lOCLEARtCUS 


1 2 ADB=PEEK( 1 7 15)+PEEKl 17 16U256- 165 
15 LOCATE (),(): INPUT "Long programme No":N 
20 DEFSEG=0îLOCATE 0; I : PR INT 11 
30 DP=PEEK( ADB+C 1 0-N)* ! 5 :• t-PEEK( ADB+ 1 -H 10- 
N )* 1 b)* 25 6+ PEE K( ADB+2+< ! Ü-NC 1 5 U 1 65536 
40 FP=PEER('ADB+3+{;I0-N)* 15)-t-PEEK( ADB+4+( 10 
-N) *T 5 ) *256+PEE K ( A 
DB+5+ 1 0{ 10- N-)* 1 5 1*65536 
50 L=FP-DP: LOCATE 0. 1 .PRINT DP;” ->";FP;" 

L=":L; : GOTO 15 


VISUALISATION DE LA LIBRAIRIE 

Ce programme utilise le même principe que le précédent. Les programmes de la. 
librairie sont stockés en ROM de la même façon que les programmes de la RAM. 
Il y a une zone en ROM qui indique lés adresses de début et de fin de chaque 
programme de librairie. 11 suffit donc d'aller lire ces adresses dans la ROM et de 
les substituera celles d'un programme de la RAM. PO par exemple. L’ordinateur 
ira lire PO dans la ROM sans- toucher aux programmes de la RAM. J’ai rajouté à 
ce programme une partie permettant de restaurer automatiquement les anciennes 
valeurs de début et; de fin dé PO. ce programme lorsqu'on a fini de visualiser la 
librairie. 


Remarques: 

Ne pas tenter de modifier un programme de la librairie situé en PO : li 
est en mémoire morte et resterait dbne tel’ quel. Par contre l'ordinateur risque de 
modifier les adresses de début et de tin des autres programmes, ce qui se termine 
en général par un «ail reset» pour cause de perte dés repères de début et de fin des 
programmes dans la RAM. 

De même, ne pas tenter d'eflaeer (new) une librairie en PO. Voir ci- 
dessus: mêmes causes, mêmes effets. 

Par contre, on peut imprimer et sauvegarder toute librairie se trouvant 

en PO. 

Ne pas charger ce programme en PO, sinon attention au piège lorsque 
la librairie sera elle aussi en PO. 


VISUALISATION DE LA LIBR AIRIE. (970 octets) 

5 C LEAR : C LS : DEFS EG=( ): GOSU B 200 
10 lNPUT»Fichier ’ 1 ib ' numéro «;N$:IF VAI.i Nü>)=0 
THEN CLS:GOTÜ10 
20 À=PEEK 1 7 1 5+ PE EK 1 7 1 6*256- 1 5 
40 D- PHEK j 7 1 8+ PL EK 1 7 1 9*256+PEEK 1 726*65536 
50 F-PLEK 1 724+PEEKI 725*256+PEEK 1 726*65536 
60 FOR J=D TO F- i 5 STEP 1 5 : DEFSEOJ/1 6:0=J 
-INT{ .1/ 1 6)* 1 6+6 
70 FOR K=l TO LEN(N$):IF 

ASCCM 1 1 >$( NS.K))=PEEK{ K+O) TH EN N EXT: GOTO 1 20 
80NEXT:CLS:GOTOI0 

120 FOR K=0 TO 5:DEFSEG'=J16:B=PEEK(K+JINT(J: 16)* 16): 

D EFS EG =0 : PO K E A + K . B : N E X T 
130 PR INT» O K PO : RUN PO ?»:GOTO#0 
200 ‘ EFFACE PO 

205 ADB-PELK 1 7 ! 5+PEEK 1 7 1 6*256- 1 65 
2 10DP0=PEEK(ADB+ I50)+PEEK(ADB+I5 1 )*256+PEEK(ADB+ 
! 5 2 )*65 536: FP()=PFJEK( ADB+ 1 53}+PEEK(ADB+ 1 54) *256 
PEEKIADB+1 55)*65536:DP 1 =PEEK( ADB+ 1 35 )+PEEK 
( ADB+ 1 36 L 25 6+ PEE K- A DB+ 1 37)*65536 
220 ÏF FP0=DP i AND FP0-DP0=1 THEN RETURN 
230 IF FP0<U62I9 AND PP0>2945+ERE2 THEN PR 1 NT 
«Programme dans PO !» 

240 ÏF FP0< 16218 THEN RETURN 
245 PRlNT»Ficlner ’lib’ dans PO !» 

250 PR 1 N T» Suppres s i on fichier ?»:POKE{ADB+i53). 

PEEKi ADB+135) 

260 PO K El ADB+ 1 54},PEEK( ADB+ 1 36) 

270 DP0=2944+FRE2; DPB = IN T ( DPO/256) :D PA-DP0- DPB *256 
28( ) PO K Et A D B+ 1 50 ) . D PA : PO KE( A D B+ 1 55 > ,0 
290 POKEi ADB+ 1 52).0:PQKEi ADB+ 1 55 ).() 

300 LOCATE25, 1 :PRINT»OK r»;TAB(0);:GOTO 200 


Déino graphique pour Casio 850/880P 
(par Karl GALLOPIN) 

"CTeepers” 

1 0 Cl s : Clear : DefchrS(252)=' , B9557555B9”:DefehT$(253l="3945554539": 
Defdn$(254)="397D6D7D39" 

20 A— ():B— 3 1 :C=I 
30 For X- AtoB StepC 
40 AS=lnkev$ 

w*- 

50 If A$= n A"and Yol rhen Y=Y+ 1 
60 lfA$="-” and Y <>() then Y=Y-1 

7()Cls: Locate J,K: Print chr$(254):: Loeate H.I: Print chr$( 253 ); :. LocatcFlG : 
Print chrS(254:);:Locate D.E: Print chr$('253);: Loeate X, Y: 

Print chrS(252);: J=H: K=l: H=F: I=G: F-D: G-E: D=X: E=Y 
80 Next X 

90 If A=3I then 20 else A=3 L ft=0:C=-I: Goto 30 


La touche "A" dirige la chenille vers lé ha» de l'écran : la touche la dirige vers 

i — ■ 

le haut. 


Dans le prochain numéro de POCHE COMPUTERS, nous 
publierons une étude en plusieurs parties nommée ” Voyage 
au centre de la FX850P M T ou la doc technique complète de 
cette calculatrice... FABULEUX !!! ' 
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TRUCS ET ASTUCES 


Truc pour Casio FX 880P : (Bertrand 
PONCIN) 

Pour supprimer un pas : POKE 1867,0 

Edition d’un programme sur TÏ-82 
(Loïc FIEUX) 

Pour éditer un programme déjà saisi on 
utilise normalement l’option EDIT du 
menu programmation accessible par 
[PRGM]. Dans certains cas, il peut être 
intéressant de ne pas passer par l’option 
EDIT, surtout lorsque la liste des program- 
mes disponibles est très longue et que le 
programme à éditer est au bout de cette 
liste... On peut alors utiliser P option NEW 
afin d’éditer (et non de créer) un pro- 
gramme. Fl suffit d’introduire un nom de 
programme déjà existant lorsque la TI-82 
vous demandera de saisir un nom. Le pro- 
gramme sera alors édité. 

Saisie d’une fonction sur Sharp 
PC 1403 (Loïc FIEUX) 

Voici pour nous une nouvelle occasion 
d apprécier 1 ingéniosité des utilisateurs 
de PC 1403 d'outre-Rhin, en effet, l’astuce 
qui suit nous a été communiquée par un 
club allemand. Elle permet de saisir une 
fonction pendant l’exécution d’un pro- 
gramme. Il ne sera donc plus nécessaire 
d’éditer un programme afin de modifier 
une fonction (par exemple SQR(4*X A 2)) 
utilisée par celui-ci. Désormais vous 
il avez plus qu a afficher la fonction sur 
l’écran, et ce, en mode R UN, Exécutez 
ensuite le programme DEF» «. Le pro- 
gramme se charge alors de lire la fonc- 
tion et de la placer en ligne 1 du pro- 
gramme. La valeur de la fonction sera pla- 
cée dans la mémoire F. 

Listing de DEF» « ■ 

2» « RESTORE UA-PEEK 65325*256 
+PEEK 65234+3: FOR 1=0 TO 70:1F 
PEEK (65200+UO&D POKEA+ï,PEEK 
(65200+1): NEXT I 
3 : PO KE A+ 1, & 3 A , & F3 , & D : EN D 
Détail important, les fonctions mathéma- 
tiques (log, sin, etc.) devront être saisies 
à l’aide de leurs touches et non à l’aide 
du clavier alphabétique. 

Une astuce sur Casio fx 7700/7800 et 
8700/8800 : le copier/coller d’un listing 
(Loïc FIEUX) 

En utilisant la «mémoire de fonctions» (F- 
Mem) comme mémoire-tampon, il esL 
possible de «copier/coller» un listing. Cela 
est particulièrement commode pour cer- 
taines instructions communes à plusieurs 
programmes. Par exemple, F instruction 


Range 1,95,0,1,63.0 est commune à de 
très nombreux programmes graphiques. 
Nous allons voir comment copier ces ins- 
tructions dans différents programmes. 
Rappelons avant tout que cette astuce ne 
concerne que les utilisateurs des Casio fx 
graphiques disposant d’une mémoire de 
fonctions accessible par (ShiftJ [0|. 

1 ) Affichez la liste des fonctions mémori- 
sées en tapant [Mode] fl] |Shift] [0] [F4| 
(lonction List). Choisissons une mémoire 
de lonction non utilisée, arbitrairement, 
nous choisirons t'6. 

2) Plaçons ies instructions a reproduire 
dans une zone de programmation, par 
exemple P5. Ainsi P5 contiendra Range 
1 .95,0, 1 ,63,0 (adaptez ce petit exemple à 
vos besoins réels !). 

3) Copions P5 dans f6. Alors que P5 est 
en cours d édition (nous sommes en mode 
programme et ies instructions de P5 sont 
affichées), appelons Je menu de la mé- 
moire de fonction par [Shilï] [0] et co- 
pions le programme P5 en cours d'édi- 
tion dans f6 en tapant [Fl ) [6] (Sto 6). A 
ce stade, une copie de P5 se trouve dans 
f6. C'est cette copie que nous allons pou- 
voir dupliquer dans différentes zones de 
programmation. 

4} ( opions 16 (qui contient une reproduc- 
tion des instructions de P5) dans un pro- 
gramme. Par [Mode | |2| passons en mode 
programme. Choisissez un programme, 
éditez- le et placez- vous à l’aide des flè- 
ches de déplacement à l’endroit où doi- 
vent se placer les instructions de P5. Il 
sulfit alors d afficher le menu des mémoi- 
les de fonctions ([Shiftj |0J) et de rappe- 
ler le contenu de 16 par [F2] [6] (Rcl 6). 

Et voilà ! Un copier/coller dans le plus 
style «Macintosh» sur votre Casio fx ! 


Notez que f6 peut être reproduit autant de 
fois que nécessaire dans les zones de pro- 
grammation... 

Une astuce pour TI-82 : Changez le nom 
d'un programme (Loïc FIEUX) 

Il est possible de «rebaptiser» un pro- 
gramme déjà saisi. Nous allons décrire les 
différentes étapes permettant d’appeler 

f()l 02 un programme déjà nommé 
TQTO 1 . 

1) Appuyez sur [PRGM] pour passer en 
mode «programme». 

2) A 1 aide des flèches de déplacement, 
«déroulez» le menu NEW et appuyez sur 
! 1 J pour confirmer la création d'un nou- 
veau programme. 

3) Introduisez le nouveau nom, ici ce sera 
TOT02. Appuyez s ur [ENTER] pou r con- 
fï rmer. 

4) Le programme T0T02 est en cours 
d'édition, il ne comporte aucune instruc- 
tion, cela est normal puisque c'est un nou- 
veau programme. Nous allons maintenant 
copier dans TOT()2 les instructions de 
TOTOI, pour cela nous allons utiliser 
RCL. Tapons donc [2nd] [STO>] puis 
| PRGM ], les menus «programmation» dis- 
ponibles pendant 1 édition d’un pro- 
gramme s'affichent. A l’aide des flèches 
de déplacement déroulons le menu EXEC 
et choisissons le programme TOTOI. 
Deux pressions sur (EN I HR] entraînent 

la copie des instructions de TOTOI dans 
TO I 02. 

Il ne vous reste plus qu’à effacer TOTOI . 
Vous disposez maintenant d’un pro- 
gramme appelé TOT02 absolument iden- 
tique àTOTO l . Vous venez en fait de créer 
un nouveau programme comportant les 
mêmes instructions que le programme à 
renommer... 
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Sur Casio EX 6800G, le programme qui cal- 
cule DELTA prend beaucoup de place . 

Voici une solution plus économique. 
(Rodolphe MENARD). 

"X 2 +BX+C-0": 


"A="? > A:"B="? -> B: 

"C"? -> C disp ”DELTA=": 


(BMAC) --> D disp "R carréeDELTA”= 
carrée D > D disp ”XI= M :(-B+E) / (2A) 
--> F disp "X2=":(-B-A) / (2A) -> Ci disp 

Sur Casio graphique, 
réalisez une infinité de spirales. 
Modifiez éventuellement les valeurs 
par exemple (500,20Ü),(5,3),(2,3) etc... 
(Olivier Le MÔ) 

LB1.0 

"Deg(l) ou Radar ? -> A 
A=i => Dec 
A=2 — > R ad 

Range 0,752,900,0,496,900 
MCL 

I -> I 

Plot 376,248 
"A="? — >A 
"B="7 — >B 

Lhl 1 

K cos (AI) ~>Y 
K si n (Al) ->X 
Plot X + 376, Y + 248 : Line 

K + 2 -> K 

1 + 2 — > I 

I >= 250 — > Goto 2 


= R 


Lbl 2 

"FIN” disp 
Goto 0 

modifications pour EX 6800G 

Range 0,608, 900,0, 352,900 

Plot 304,176 

Plot X+304,Y+176 


PROGRAMME SHADE 48. ASC 
(par Loïc FIEUX) 

Ombrage d'une portion du plan sur HP48. 

La fonction SHADE (sous-menu FCN clans 
3 'environnement P1CTURE apparaissant après 
le tracé d’une fonction cartésienne) est pré- 
senté à la page 22-1 1 du manuel des HP48 G / 
GX. 

Si une unique fonction a été tracée, celte fonc- 
tion «ombre» une portion du plan délimitée 
par la courbe, l'axe des abscisses ainsi que 
deux droites verticales (passant par les points 
fixés par le curseur et sa marque). 

Si plusieurs fonctions sont tracées, alors la va- 
riable EQ contient une liste d'expressions al- 
gébriques. 

Dans ce cas SHADE ombre une portion de plan 
délimitée par la courbe correspondant à l’équa- 
tion sélectionnée (avec l'option NXEQ du 
sous-menu FCN), la courbe correspondant à 
l'équation qui suit l’équation sélectionnée dans 


lu liste ainsi que deux droites verticales. 
Autrement dit, si plusieurs courbes sont tra- 
cées, il n'est plus possible d’ombrer une par- 
tie du plan délimité par une courbe et l’axe 
des abscisses. 

Pour y remédier, user de la petite astuce su i 
vante : 

Depuis PLOT, tracez vos courbes (LQ con- 
tient une liste d’équations). 

Une fois les courbes tracées (vous vous trou- 
ve/. dans l'environnement PICTURE), utili- 
se/ la fonction NXEQ du sous-menu FCN pour 
sélectionner la courbe qui doit délimiter la por- 
tion de plan à ombrer. NXEQ «sélectionne» 
Pune des courbes, en fait, cette fonction place 
l'équation correspondant à la courbe sélection- 
née à la tête de la liste placée dans la variable 

EQ. 

En appuyant sur |ON| revenez à P application 
PLOT et éditez la variable EQ. 

L’équation correspondant à la courbe sélec- 
tionnée se trouve en tôle de la liste. 
PLaccz-vous juste derrière cette équation et 
placez en seconde position dans la liste l’ex- 
pression algébrique 'O . Celle-ci correspond 
à x=(), et donc à l'axe des abscisses. 

Tracez les courbes (option DRAW du menu). 
De retour dans PICTURE. utilisez la fonction 
SHADE du sous-menu FCN... Surprise ! 

Une astuce très simple à mettre en oeuvre pous 
a permis d’ombrer la portion du plan désirée. 
RAPPEL : Pour marquer la position du cur- 
seur (sa « marque»), appuyé/ sur |x|. 

INTERFACES ordinateur - magnétophone 
pour Sharp PC 1403 et Casio FX 850P/880P 
(Philippe GOURVES) 

Numérotai ion des connecteurs: 


Casio (vue de lace) 

-M 


I 







* + • 


ir 

XL 



/> 


Sharp 


,1 


H 


Mi AK P PC' 1493 

□ □ 
□ □ 
□ □ 


Prise magnéto 
Sharp 


micro 


masse 


c r 


47 Kohms 


I- 


T) 


Casio 
Î4?< 7 


Ü 


X 


inF 


o 30 


casque o' 


•I I- 


o 


lOnF 


1 <6 


6 


PROGRAMMES POUR CASIO. 

(par Karim ALAFIA) 

Tracé de graphiques polaires sur graphiques 
(7000 - 7500 - 8000 - 8500 - ...) 

« GRAPH POLAIRE» : «0 MIN:»?- 
>0:»() MAX:»?->N:»EFFACE ?:»: 

? -> C:C=0=>GOTO 1:CLS:LBL 1:REC( in- 
sérez ici la fonction avec O pour 0,O):PI.OT 
I„l:0+l>0:0oN=>G0T0 1 


Conversion d'angles : degré en radian sous 
forme de fractions. 

«CON VERS ION ANGE E»: » DEG : »?->L 
:»=RAD»;RAD:(L7PI)->X:X 
olNT(X)=>GOTO 1 :X<> 1 =>X 
«PI»:LBL 1 :ISZ C:XC«oJNT(XC) => 

GOTO 2:XCo&XC= 

«PI»:» — »:C 

NO I E :»o» correspond à "différent de" 


Les répertoires cachés sur HP48 
(par Loïc FIEUX) 

I! existe à la racine (HOME) de la mémoire 
utilisateur un répertoire caché (accessible par 
#15781 h SYSEVAL). Son nom est... le nom 
vide ! C'est à dire ' ' ("rien" entre deux apos- 
trophes délimitant le nom). Vous savez que 
l’homonimie des variables est proscrit, vous 
ne puovez donc pas créer un nouveau réper- 
toire invisible dans HOME (ce répertoire in- 
visible contient d'ailleurs des variables indis- 
pensables à la HP48). Dans un répertoire nor- 
mal créé par vos soins, vous pouvez placer un 
sous-répertoire caché, pour cela, tapez 
#15777h SYS-EVAL. Pour accéder au réper- 
toire invisible, tapez #15777h SYSEVAL 
EVAL. A ce stade, les objets programmes se 
trouvant dans le répertoire où a élé placé le 
(sous) répertoire invisible, sont cachés. Tapez 
#15777h SYSEVAL PURGE pour les 
ressueiter ! Astuce testée sur HP48SX. 


Pour PCE500 

Dans un programme, les nombres sont tou- 
jours codés sous leur forme décimale ; c'est à 
dire 7 octets. Sî vous voulez gagner de la place, 
tout simplement, mettez tous les nombres en 
hexadécimal ; exemple : 
de 0 à 9 en décimal — > 7 octets 
de &() à &9 en hexa — > 2 octets 
Ceci fonctionne aussi pour les numéros de fi- 
chiers. car ceux-ci sont codés sur 7 octets : 
OPEN "E:üonnées.dat" FOR OUTPUT AS#& 1 


Augmenter le nombre de pas sur une 
Casio graphique 7000G c'est possible î 

1 ) enlever les piles pendant quelques 
minutes, 

2) les remettre et allumer la calculatrice. 

3) MODE 3 puis SH1FT DEL 
résultat 630 pas contre 422 au départ. 
Essayez aussi MODE 2 puis placez-vous sur 
un numéro (en fait un trait), puis appuyez sur 
EXE puis PRE puis MODE 2 (vous devez ob- 
tenir entre 45000 et 65000 pas ! ! ! ) 


Lister la rom du PSION sériés 3 
(Stéphane TORRES). 

LOCAL ASC 1 00) 
A$=DIR$(”ROM::*.*") 

WHILE A$ <> " " 

PRINTAS : PAUSES 
A$=DIRS(" ") 

ENDWH 


EN DP 
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PROGRAMMES POUR SHARP PCI 360 


par Antony NEVEU 


1 055 GOTO 1 540 


Calculez la capacité de votre mémoire 

5«A»WAIT0:CLEAR:USING 
«######.##» : GOTO 50 
I OPOKE& C 5 0 0,&84,&60,0, 

& 8 5 , & 6 0 , 0 , & 1 2 , & 5 F , & 6 ! , 

& 5 0 , & D F , & 0 4 , & 6 B „ & 8 0 , 

& 3 9 , 4 

20 PGKE&C5 1 0,& 1 0,&C5,& I C.&84. 
&53,& 1 1 ,& I D,&85,&53,&37 
50 PRINT «CAPACITE =»; 

60 CALL &C500 

70 A=PEBK&C5 1 C+256*PEEK&C5 1 D 

-1 

80 C=A/1 .78:B=C/IOOO 
90 PRINT C;» nF» 

93 US ING «###.##» 


1060 IF Col TH EN 1000 
1070 GOTO 1530 

1500 CLS : IN PU T «Titre du texte ? 
«;A$(Q):B=B+ 1 : BB(B- 1 )=Q 
1 530 Q=Q+ 1 : I F Q> ! 50 TI ÏEN 5000 
1540 CLS : IN PUT A$(Q) 

1550 F$= INKLY$ : IF F$-»F» LET 
Q-Q+ i : GOTO 3000 
1560 IF F$=»» THEN 1550 
1 570 GOTO 1 530 

1 700 CLS : WAIT 0: PRINT « L I R 
E»: PRINT «I ) Chercher un titre» 

1701 PRINT «2) Lire tous les textes»: 
PRINT «3) Les noms de textes» 

1702 I-0:C=0:E=0:D=0: CURSOR 94: 
IN PUT C: !F C=3 THEN 2500 


2500 CLS :D=D+1 : IF D>B THEN 2540 
2510 PRINT A$(BB(D- 1 )) 

2520 F$= INKEYS ; IF F$-»Y» TET 
TT$=A$(BB(D- 1 )): GOTO 1710 
2523 IF F$<»>» THEN 2530 
2525 GOTO 2520 
2530 GOTO 2500 

2540 CES : PRINT «Fin de la liste»: 
GOTO 1855 
3000 BB(B)-Q 
30 1 0 GOTO 1 000 

5000 CLS : PRINT «MEMOIRE SUR- 
CHARGEE»: BEEP 1,2 10,90: IF INKEYS 
<>»» THEN 1 50 
50 1 0 GOTO 5000 
6000 1=0: CLS : PRINT A$(H) 

6020 1=1+1 


95 PRINT «ou encore «;B;» micro F» 
100 END 

Un agenda pour Sharp PCI 360 

10 AUTOGOTO «A» 

100 «A»: WAIT 0: CLS 
120 PRINT 


« * * *** * * * * % * * * * * * * * * * *** * QQ 

NOTES ** AGENDA *» 

130 WAIT 99: PRINT «* 

1 360 


» 


SHARP PC 

* * * * % % * * * # £ * X * * * £ 8 ' * * * :{= * * 

150 CLS : WAIT 0 
160 PRINT « MEN U» 


1 70 PRINT «1) Ecrire un texte»: PRINT 
«2) Lire un texte»: PRINT «3) Corriger 
un texte» 


180 CURSOR 93: INPUT C 

190 IF C=1 THEN 1000 

200 IF C=2 THEN 1 700 

1000 CLS : PRINT « E C R I R E»: 

PRINT «1 ) Continuer un texte» 

1010 PRINT «2) Ecrire un texte»: PRINT 
«3) Revenir au menu» 

1020 CURSOR 93: INPUT C 
1040 1F C=2 THEN 1500 
1050 IF C=3 THEN 150 


1703 IF C=2 LET 1=1: GOTO 1750 
1705 CLS : INPUT «Titre du texte a lire 

? «;TT$ 

1710 1=1+1: IF I=BB(B) THEN 1750 
1720 IF A$(BB(l-l ))=TT$ THEN 1750 
1730 IF A$(BB(I-1 ))=»» WAIT : GOTO 
2000 

1 740 GOTO 1 7 ! 0 
1750 E=(BB(1-1))-1 

1755 IF E=((BB(I))-1) THEN 1840 
1757 E=E+ 1 

1760 CLS : PRINT A$(E) 

1765 IF A$(E)=»» THEN 1850 

1 770 Y$= INKEYS : IF Y$= CHR$ 4 LET 

E=E-2; GOTO 1 800 

1780 IF Y$= CI 1RS 5 GOTO 1 800 

1 790 GOTO 1 770 

1800 GOTO 1755 

1 840 IF C=2 LET 1=1+1: GOTO 1 750 
1850 PRINT «Fin du texte» 

1855 CURSOR 72: INPUT «l in du pro- 
gramme Y/N ?»;X$: IF X$=»Y» END 
1860 GOTO 150 

2000 CLS : PRINT «Ce texte est inexis- 
tant»: WAIT 0: GOTO 150 


6040 CURSOR (I-l): PRINT CH RS 249 
6060 CURSOR (I-l): PRINT MIDS 
(A$(H),1, 1 ) 

6070 R$= INKEYS : IF ASC R$>38 AND 
ASC RS<9 1 OR R$=» « GOTO 1 0000 
6080 IF R$= CHR$ 14 GOTO 6020 
6 1 00 IF R$= CHR$ 1 5 LET 1=1- 1 : GOTO 
6040 

6120 IF R$= CHR$ 4 EET H=H- 1 : GOTO 
6000 

6140 IF R$= CHR$ 5 LET H=H+Î: 
GOTO 6000 

6150 IF R$= CHRS 16 THEN 8000 
6 1 70 GOTO 6040 

10000 K=0: IF 1=1 LET K= LEN A$(H)- 
1 :A$(H)=R$+ RIGHT$(A${H) 

, K): GOTO 10200 
10020 K=( LEN A$(H))-I 
10030 A$( 1 50)= RIGHTS (A$(H),K) 
10040 A$(H)= LEFT$ ( AS(H),(1- 1 ))+R$ 
+AS( 1 50) 

10200 CURSOR 0: PRINT A$(H) 

1 0220 GOTO 6020 

60000 CLEAR ; DIM A$(150)*80: DIM 
BB(10) 


support à wrapper, le tout noyé dans la 
résine ; 

voici le brochage. 


TRANSFERT DE DONNEES ENTRE UN SHARP PC E500 ET UN COMPATIBLE PC 

Connecter le PC E500 au PC par le câble spécial prévu à cct effet (CE130T). 

Ouvrir le port série du Sharp par : 

O PEN "CO M : 9600 ,N , 8 , 1 ,A,L,&H 1 A,N,S" validez, puis CLOSE validez 
Ouvrir le port série du PC compatible par: 

MODE COM 1 : 9600, N, 8, 1 ,P 
Pour transférer les données : 

Du Sharp vers le PC ; tapez sur le PC : COPY COM1 : Nom du fichier.ext/A: validez 

puis tapez sur le Sharp : SAVE "COM:" validez 
Du PC vers le Sharp : tapez sur le Sharp : LO AD "COM:’' validez 

puis tapez sur le PC : COPY Nom du fichier.ext/B COM 1 : validez 
NOTA: Si vous faites souvent des transferts, il est souhaitable de sauvegarder en 

hchier RAM disque les commandes pour ouvrir le port série du PC E500. et en 
fichier Batch pour le PC compatible. 

Vous pouvez également fabriquer vous-même votre câble de transfert. La difficulté 
viendra du connecteur Sharp (vous pouvez par exemple le fabriquer avec des pins de 


Sharp 

25 pins 

PC 25 pins 

9pins 


FG 

1 

1 


FG 

TD 

2 

3 

2 

RD 

RD 

3 

? 

3 

TD 

RTS 

4 

8 

î 

CD 

CTS 

5 

20 

4 

DTR 

SG 

7 

7 

6 

SG 

CD 

8 

4 

7 

RTS 

RR 

1 1 

5 

8 

CTS 

DTR 

20 1 

6 

6 

DSR 
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RUBRIQUE SHARP 


Quelques programmes pour SHARP PC E500 (par 
KLINGER Werner) 

20 S=-l :CLHAR PX.PY:CLS :1NPI I «Adresse: «;AI)R ' Demander l’adresse à 
partir de laquelle la mémoire sera affichée. 

30 S I RT:GO K) *Ai I 'début de la boucle principale 

40 *CONT:CLFAR K,K$:GOSUB *TKEY ' Retour ici lorsque l'affichage ne 
doit pas être modifié 

50GOSUB *CON:ADRO=ADR:ADR=ADR+(( K$=»-»)-( KS=»+»))*30+ü K$=W 
»)-(K$=»*»))* 10 'Stockage de adr ds adrO. Si k$=»+»(«-») on ineremente(dec.) 
adr de 30 (3*10). Si k$-»*»(«/») on tne.(dee.) de 10 (=1 ligne 
60 IF A D R>( & FFFFF-29 ) THF, N ADR=&FFFFF-29 : CL FIA R K,KS FFS F IF 
ADR<0 THFN ADR=0:CLEAR K,K$ 1 Vérifier que l'on veut lire une adresse 
existante (0<adr<& fffff-30 ) 

70 GOSUB *COFF:IF ADROoADR THEN ^STRT * L’adresse affichée est 
modif iée, il faut reafficher l’écran 

80 PX=PX+( K= 1 5 )-( K= 1 4 ): PY =PY +( K=4 F( K=5 ) ’ Modifier la pos. du curseur, 
90 IF PX>9 THEN PY=PY+ 1 :CLEAR PXiGOTO 90 EFS F 1F PX<0 THEN 
PY=PY- I :PX=9:GOTO 90 FLSE IF PY<0THFN Cl FAR PY : K $=»/»: GOTO 50 
ELSE IF PY>2 THEN PY=2:K$=»*»:GOTO 50 1 TRAITER LFS DEPASSE- 
MENTS 

100 *GKEY ‘gestion des entrées clavier 
1 10 GOSUB *TKFY 

1 20 CHO!X=-(K$=» «)-( K= 1 0)*2-( K= 1 3)*3-( K=7 )*4-(KS=»Q» F5-< K$=»G») 
*6-{K$=»S»}*7 

130 ON CHOIX GOTO *AFF,*OFF,*IN.*PlN,*QU[T.*GOTO,*SUIV 
140 GOTO *CONT 

200 *IN:CLEAR PS:1 OC ATF 0:PRINT «POKE &»;RIGHT$ («0000»+HFXS 
A,5): »,»;:! N PUT « 7».P$:IF P$>»»THEN PRINT «Remplacer par «;P$;» ? «:1F 
1NKEY$ &lo»0»THEN FSTRT 

210 IF FEN P$>1 THEN POKE A. VAL PS Fl. SE POKE A, ASC P$ 

220 GOTO *STRT 


60 POKE & B FC93 ,Q F.QM , QH : LOC AT F 0,0:PRINT CS:LOCATE 0,3:PRJNT 
«&»;RIGHTS («00»+HEXS QH,2);RIGHT$ («00»+HEX$ QM,2);RIGHT$ 
(«00»+HEX$ QL,2) 

70 T={.INKEY$ =»-»}-( INKEYS =»+»)+(lNKEY$ =»3" )*6-(IN KEY$ 
=».»)*6:U-(INKEYS = ->/»)-(INKEY$ =»*»)+(INKEY$ =»9")*16-(INKF;Y$ 
=»6’’) :!î 16 

H0 REM +&- DEPLACE D’UN PIXEL{=1 OCTET), /&* DE &HI0 OCTETS, 
3&. D’UN CARACTERE (=6 P1XH1 S), 9&6 DF &H 100 OCTETS. 

90 1 F T <>() THEN 100 FI SF IF UoOTHEN 1 20 ELSE 70 

100 QL=QL+T:IF QL>255 OR QL<0 THEN QL=255-(QL-T):U=(T<0)- 

(TX)):GOTO I 20 ELSE GOTO 60 

120 QM=QM+U:IF QM<256 AND QM>=0 THEN GOTO 60 FLSE V=(U<0)- 
(U>0):QM=255-(QM-U):QH=Q1 l+V:IF QH>&2AND QI I<& FTHEN 60 ELSE 
QH=QH-V:GOTO 60 


Bilan mémoire (par Werner KLINGER) 

10 AUTOGOTO 20 ‘ Bilan mem, par willy 

20 CES :ON ERROR GOTO *FR I :QT$=MEM$ +»I»+»S1 :»+$TR$ DS K F 
«S I :»:QTS=QT$+». S2:»+STR$ DS KF «S2> 

30 QT$=QT$+» Oc têts»; FO R 1=1 .EN QTS TO &23:QT$=QT$+» «:NEXT 
:QT$=QTS+»DSK:»:CLS :POKE &BFCA I ,&40:PR1NT QT$:POKE 
&BFCA1.&0 

40 PRINT « F:»:DSKF&3;»Octets» 

50 FOC ATF & 14, & 1 :PRINT «F:»; DS KF &4:»Octets» 

60 BTKXTS =T$:END 

80 *KR 1 :ON ERROR GOTO *ER 1:1F ER N =&4BTHFN PRINT «Absent «;:IF 
FRL=& 14THEN QT$=QT$+» NON.»: RESUME! 30 ELSE IF ERE =&28 THEN 
R FS U M F 50 ELSE R FSU M F 60 

90 PRINT «FATAL ERROR #»;MIDS ( SIRS FR N ,&2,&2};»AT»;FRL :STOP 


250 *P( N : FOC ATF 0: PRINT «Mode PRO de POKFs...» 

: ADP=A : A DR0= ADR: ADR= A D P 

260 P$=»»: PRINT «POKE &»;RIGHT$ («<>000»+HFX$ ADP.5):».&»::1NPUT 


O 


« ,PS: IF P$»>» TH EN POKE ADP, VA I , ( « & »+P$ ) : A DP= A DP+ 1:1F 
ADP<&COOOO THEN 260 

270 IFADP=ADR THEN ADR= ADRO: GOTO *S I R I Fl SF. GOTO *STRT 
400 OU f!’: HND 

350 *GOTO:CLEAR K,K$:GS=»»:LOCATH 0:1 N PUT «ALLER A ! .ADRESSE 
&»;G$:1F G$=»» THEN * A FF FLSE ADR= VAL («&»>+G$):GOTO 60 
400 *SUIV:LOCATE 0: PR INT «Quelle adresse faut-il suivre &»;:INPLT «? 
«,S$:1=VAL («&»+S$):lF !>=() AND I<=&FFFFF Tl IFN S=ï 
410 GOTO *STRT 

500 *AFF: I F K$=»*» THEN 1 .OUATE 39.3: PR INT « « :FOR ,l=2TO 2 ELSE 

CLS :FOR J=0TO 2 ‘ Si «*», on n’affiche que la dernière ligne 

510 LOCATE J: FOR l=0TO 9 ‘afficher la ligne de 10 octets 

520 P$=CHR$ PF1EK (ADR+I+J* 10): LOCATE IF3:PRINT RIGHTS («0»+HEX$ 

ASC PS+» «, 3);: LOCATE 1+30: IF P$«< « THEN PRINT «.»; FLSE PRINT P$; 

530 N EX T :NEXT 

540A=ADR+PX+PYMO:P=PFEKA:PRINT«Adr:&»:RIGHr$(«(K)00»+HEX$ 
ADR,5);:LOCATE 12:PR1NT «Pos: &»;RlCjHT$ («0000»+HEX$ A, 5) 

550 GOSUB *T K F Y: GOTO H ON I 

600 *CON:GCURSOR fPX* 18+12,PY*8+6):GPRINT « 10387CFE»:GCURSOR 
( 1 80+ P X * 6 , PY * 8+6 ) : GPR 1 NT « I ’FFEFHI •FFF» : A= A D R+ PX +PY* lt):P=PE E K 
A:RETURN * Afficher les 2 curseurs 

610 H OLP I OUATE 18,3:PR!NT RIGHTS («0(100,+ H EX S A,5):LOCATE 
PX *3+2, PY: PRINT « «;: LOCATE PX+30:1F P>3 1 Tl 1EN PRINT U! 1RS P; ELSE 
PRINT «,»;:RFTURN ‘ Restorer Fccrun 

650 *T K E Y: L$= INKEYS :1F L$»>» AND K$=»» THEN K$=I.$:K=ASC K$ ‘ 
Stocker la lere touche pressée» 

660 JF S>-1 THEN LOCATE 26.3:PRINT «|«:RIGHT$ («0000»+S$,5):» 
&»;RIGHT$ («0»+HEXS PEEK S, 2); 

670 R ET CRN 

999 *:PRINT ASC INKEYS :GOTO * 

40000 *OFF: POKE &BFE00, 8,0, &4 1 :C ALL & FFF1 )C : GOTO *CONT 


labiés de caractères (par Werner KLINGER) 

2(1 C$=»»:FOR 1=160 TO (160+39):C$=CS+CHR$ FNEXT 
40 QL=PEEK &BFC93:QM=PEEK &BFC94:QH=PFFK &BFC95 
50 CLS 



VENDRE 





Renseignements : 

M. KLINGER WERMER 

Le petit Tizin 
38210 TULLINS 
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RUBRIQUE DU HP95-100LX 


Le HP100LX équipé de la carte PCMCIA Thin Fax 


Nous abordons nne nouvelle rubrique uniquement destinée aux heureux (ou futurs !) 
posseseurs de ces petites machines géniales que sont les HP 95 LX ou HP 100LX. 

COMMUNIQUER AVEC UN HP 95-I00LX : 

Nous avons testé pour vous deux cartes PCMCIA adaptables sur l'un ou l'autre appareil. En effet, l'achat d'un portatif conduit très 
.cuvent, „ terme, a se poser la question de pouvoir communiquer en "autonome'’. Le modem et le fax font de plus en plus partie de 
no ie environnement immédiat, lotit repose sur le lait que la majorité des offres de matériel n'est pas prévue pour ce i\J d'appa- 

lI imeme * r’" i,S " e SHM paséUuliés l»m- accepter l'écran ou les part iculiarités des pockets. 

a te. FAX-MODEMS h CMU A son! particulièrement bien adaptées à ces ordinateurs car elles n'occupent pas de place (ren- 
luint complètement dans la machine) et ne pèsent pas lourd. \- 

Après quelques déboires, (il huit savoir que les promesses ne corres- 
pondent pas assez souvent a la real lié ; donc méfiance ! par exemple, 
la carte fabriquée par Chaplet electronics "EGO FAX" ne fonctionne 
que dans un sens, en émission et non en réception (malgré la publicité 
IuiIl poui ce produit) car dans ce domaine récent des communications, 
l'ollre n'est pas forcement significative de qualité ; les pockets étant 

les parents pauvres" pour ces fabricants, nous avons sélectionné la 
carte FhinFax fabriquée aux USA. 

Le gtos avantage de cette carte est que le logiciel est contenu dans une 
llasb eprom à I intérieur même de la carte et par conséquent n'occupe 
pas de place au sein du HP 100. Cette flash eprom permet d’ailleurs une 
mtsc a jour éventuelle du produit au fur et à mesure qu'il s'améliore 
puisqu'elle est réinscriptible. 

L'émission et la réception fonctionnent parfaitement. Le fax fonctionne 
a 9600 battds en émission et à 4800 bauds en réception. Le modem 
émet ou reçoit a -400 bauds. Ceci est très satisfaisant et correspond 
aux normes du groupe lil. soit la plupart des fax de bureau. Des ie 
démarrage, on s aperçoit que le logiciel a bien été conçu pour le HP 100 

copier les fichiers autoexec bat et confU SV s de D- vers ( ■ - m ' v- r? ,rC ' s . convivial et facile à mettre en oeuvre. Tout d’abord, il faut 

1 1 .:: j ;::;- - 1 u , 1 

laisser guider par lés menus très clairs ^ ^ E " SüUe ' VOUS n ' avez P lus vous 

Sur le pian fonctionne!, on peut très bien émettre fies fax (en ascii) a plusieurs correspondants choisis dans l'annuaire du I00LX. Quant à la 

' CCtp l i °"* 1 aSSt/ SUfprCnant de voir ^paraître par exemple de I écriture manuscrite sur l'écran du HP ! des dessins ou des plans Ce ci est 
nom, a, car on reçott une page graphique. On peu, le .aire fonctionner avec un coupleur acoustique tde bonne qualité, Nous mpX met 

ZrIZ’T U T U& r miel C S “ r d ' Une pnse dc q-d on es, dans une càbtne) : h est constitué le plus de deux 

1 f q on P Ia 0 uent 1 émetteur et le récepteur du combiné téléphonique au moyen d’élastiques larges réglables I es meilleurs cou 
p uas forment un bloc compact emprisonnant complètement le combiné. Le problème du coupleur est qu’il supporte mal les bruits ambiants aux 
a entours, i ous axons cependant réussi parfaitement une communication Fax vers TOKYO et vers MONTREAL avec un coupleur Rappelons 
;f ° n de ' c; " 1e " m la pnse 'Vlvplnmc nécessite une prise gigogne spéciale (fournie avec le système) 

Quelques defauts remarques : Le ThinHax ne reconnaît pas le protocole V23 (minitel) et ne fonctionne pas avec le proaramme buddylOO D'autre 
part les minuscules et les accents français son, mal visualisés (néccssiié d écrire en majuscules pour régler le problème Pour vmr “ ° eeu 

le déplacement de l’écran manque un peu de rapidité " i uiunej. roui von te lax reçu, 

" PPdnt,0n en FRANCE ; env °y er ou recevoir un Fax au beau milieu des bois, en montagne ou sur la plage... 



Le FIP95LX avec la 
carte FAX MODEM 
de NEW MEDIA 



Cette carte est apparue voici maintenant un peu plus 
d une année. FJ Je possède également la part icu liante 
de posséder son logiciel en interne mais, se char- 
geant automatiquement a 1 initialisation, il occupe 
en\ itou 2I0K dans la ram du HP9N Les menus bien 
détaillés (en anglais !) permettent une exploitation 
rapide du système. Le modem émet et reçoit à 2400 
bauds. Le Fax emei a 4800 bauds mats ne reçoit pas 
: il es, unidirectionnel. On peut facilement gérer tou- 
tes les données d'émission du modem et il est possi- 
ble de créer des bibliothèques de numéros de télé- 
phone. Cette carte n accepte pas non plus Je proto- 
cole V23 (minitel) 
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RUBRIQUE 

Pour relier un HP 100LX à un 
PC compatible j rien de plus facile ! 

Dans le MSDOS (5.0 et 6,0), vous trouverez les logi- 
ciels INTERLNK.EXE et INTERS V R. EXE 

1 ) modifiez ie config.sys de votre PC en ajoutant 
DEVÏCE = C:\DOS\INTERLNK.exe (si inteiink.exe 
se trouve dans le répertoire DOS que vous aurez créé). 

2) faites l’acquisition d'un simple câble de liaison série 
entre PC et HP. 


3) Transférez le logiciel INTERLNK dans votre HP 
(par exemple par ie soit série intégré au IIP ou par une 
carte mémoire PCMCIA) 


4) Modifiez le config.sys de votre HP en insérant cette 
ligne : DEVICE = C:\_dat\interink.exe\dri vcs:5 

5) lancez INTERSVR .exe sur v otre PC 


Le tour est joué ! 


DU HP95-100LX 


Utiliser STACKER sur votre HP95/100: 

Stacker est un merveilleux outils de compression 
des données, cependant, quelques précisions sont à 
considérer. 


Vous pouvez notamment changer le ratio entre vitesse 
et la compression. En effet, en insérant dans le 
config.sys l'ordre /P= et une valeur comprise de 1 à 9, 
vous modifiez ces deux paramètres. Si P=l, vous aug- 
mentez la vitesse, mais vous diminuez le taux de com- 


pression. A l'inverse, si P=9, vous diminuez la vitesse 
mais vous augmentez le taux de compression, exemple 


device=c:\stacker\stacker.com/P= I c:\slacvol.dsk 


Stacker prendra entre 39K et même 17K de mémoire 
pour la dernière version 4.0 (dont la compression dé- 
passe largement les 1 pour 2 ; taux de 2,3 en moyenne) 


6 mégas de softs pour votre HP 95LX - HP 100LX !!! 

En relation avec COMPUSERVE, MICROCARDS vous propose une sélection des meilleurs freeware et 
shareware en direct des US, dans des domaines aussi variés que la communication, la programma- 
tion, les jeux, les utilitaires, les applications Lotus, Mail, le traitement de textes, la musique etc... 

La documentation est fournie en anglais. 

Ces programmes sont garantis strictement testés sans virus connus. 

1) le pack N°1 de 3 disquettes 3,5 pouces 1,44MB 170F ttc (port retour et disquettes comprises) 

2) le pack N°2 de 5 disquettes 3,5 pouces 1,44MB 250F ttc (port retour et disquettes comprises) 
supplément de 30F pour des disquettes 3,5 pouces 720K ou autre format (le préciser dans votre 
commande) 


Et pour ceux qui, malheureusement ne possèdent pas de PC de bureau, MICROCARDS peut vous 
fournir ces softs sur carte mémoire. 

1) vous expédiez votre (vos) carte(s) mémoire PCMCIA vierge (type I ou II) SRAM (après avoir vérifié 
l'état de la pile) par PTT en colissimo recommandé R3 ; on vous la(les) chargera pleine de softs et on 
vous la(les) renverra en quelques jours par PTT colissimo recommandé pour 150F ttc (+100F par carte 
supplémentaire) port retour compris, (précisez si vous possédez un HP95, un HP100 ou un Omnîbook 
et si vous désirez plutôt des utilitaires, des jeux, des applications, ou un mélange des trois) 

2) en cas d'achat d'une carte mémoire PCMCIA pour HP95-100 ou Omnibook chez MICROCARDS, 
celle-ci sera fournie remplie de softs sans augmentation de prix. 

UTILISEZ LE BON DE COMMANDE EN DERNIERES PAGES DE POCHE COMPUTERS. Merci 


Nouvelles cartes PCMCIA langages ou softs divers, (pour HP95-100 ou Omnibook) 


Nombreux traducteurs de langues différentes (Français - 
Anglais - Allemand - Espagnol - Latin - Italien - Russe - 
etc*,,) 

GraphMaster (créez vos graphes et tableaux divers) 

M us ic Bases (base de données sophistiquée pour amateurs 
de musique) 

HoroScopîcsJÏ (calcul d'horoscopes professionnel 
Travehvare (organise/., planifiez votre voyage) 
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AWELE SUR PSION SERIES 3/3A 

par le Docteur Maurice TALAZAC 


Jeu de réflexion par excellence, V AWELE est à V A frique ce que les Echecs sont à V Europe, et le Go à VAsie. 
Connu sous d y innombrables variantes (WARl, MANCALA , SOLO...), son aspect mathématique en fait un 
jeu idéal pour la programmation. 


Les règles: 

Le jeu se pratique à deux, sur une table creusée de deux rangées de 6 alvéoles. 
Chaque alvéole contient 4 pions (on utilise de très beaux coquillages, des graines 
ou des cailloux). Chaque joueur possède une rangée. Pour jouer, il prend tous les 
pions d'une alvéole quelconque de sa rangée, et les distribue un par un successi- 
vement dans les alvéoles voisines, dans le sens inverse des aiguilles d’une mon- 

•b.. .• 

tre. 


4 4 4 4 4 4 Le joueur sud joue sa 4 4 4 4 5 5 

4 4 4 4 4 4 quatrième case.. > 4 4 4 0 5 5 

sud (cases numérotées de gauche à droite) 

4 4 4 4 5 5 Le joueur nord joue sa 0 4 4 4 5 5 
44 4 0 5 5 sixième case > 5 5 5 1 6 6 


Si le dernier pion tombe dans une alvéole du côté adverse, et que celle ci contient 
déjà seulement un ou deux pions, (ce qui fait deux ou trois pions une fois celui du 
joueur posé), il prend tous les pions contenus dans l'alvéole, et les son du jeu, Si 
P alvéole immédiatement voisine à droite contient aussi deux ou trois pions, il les 
prend aussi, et ainsi de suite jusqu’à tomber sur une aléole contenant moins de 
deux ou plus de trois pions. 



PROOAWHLH: 


3 1 I Le Joueur nord joue sa 5 10 3 1 1 

2 4 3 1 3 3 quatrième case > 3 5 4 0 3 3 

et vide la quatrième case du joueur sud. 

42 1 104 Le joueur sud joue sa 4 0 0 0 ! 5 

2 3 Û 0 6 1 cinquième case > 2 3 0 0 0 2 

et vide les 5è, 4è, et 3ème case du joueur nord. 

Ces règles simples sont complétées par deux précisions : 

- Si les cases de l'adversaire sont toutes vides, on est obligé déjouer un coup qui 
en remplisse une, si c’est possible. Sinon, le jeu est terminé. 

-Si on joue une case contenant plus de on/e pions, on la saute quand on revient 
sur elle en distribuant les pions, de façon à ce que toute case jouée soit toujours 
vide après son tour. 

Le jeu est terminé en cas de blocage, ou quand la différence de score entre les 
joueurs est supérieure au nombre total de pions restants sur le plateau. Le score 
est étabi en addit in liant pions pris, et pions restants dans chaque camps. 

Le programme: 

Ecrit pour un Séries 3 A, il peut être effectué sur un Séries 3 en modifiant les 
valeurs des commandes graphiques comme indiqué dans les lignes R KM. 

Le plateau de jeu est représenté par une variable tableau A%(X% ). X% représente 
le numéro de case, de I à 6 pour le joueur, et de 7 à 12 pour L ordinateur. A%(X%) 
représente le contenu de la case numéro X%. 

Le premier coup est au choix un coup du joueur, ou un coup au hasard de L ordi- 
nateur. 

La réflexion de l'ordinateur est une recherche exhaustive à deux niveaux. Apres 
mise en mémoire des positions dans le tableau R1%(X%), Lordinnateur étudie 
chacun de ses coups possibles (procédures VALID, puis MVT) eu attribuant à 
chaque position un score SCI% (procédure H VAL), I! fait de même ensuite pour 
chacune des réponses possibles du joueur, avec le tableau R2(X%), et le score 
SC2%. Le coup XMAX% permettant le meilleur score SCMÀX%=SC1 %-SC2% 
est ensuite joué (procédure MVT), les prises effectuées (procédure PRISE) et le 
résultat affiché. Après vérification de l'éventuelle fin du jeu (procédureTERMIN), 
le cycle recommence. 

La procédure EVAL attribue un score en fontion du nombre de prises possibles 
(procédure PRISE), et du nombre de cases prenables, contenant 1 ou 2 pions. 

Le programme pourra être perfectionné en affinant la procédure d évaluation, et 
en augmentant le niveau de réflexion, avec les méthodes classiques d’élagage 
sélectif d'arborescence (algorithme alpha/bêta). En attendant, l’ordinateur est déjà 
assez difficile à battre, pour vous permettre un entraînement sérieux avant votre 
prochain voyage en Afrique. 


REM AUTEUR Maurice TALAZAC ************* 

REM PROGRAMME ECRIT POUR PSION SERIES 3 A 
REM POUR SERIES 3, UTILISER LES COORDONNEES 
REM D'AFFICHAGE MENTIONNEES EN REM 

GLOBALAÇfc ( 1 2),R 1 C H 1 2).R2%( 1 2 ) . X % . X M A X % . XM % . Y % , V L D % 
LIM % ,Z%,G %,G I .O B Al .SC M A X % SCO R K%,SC 1 % ,SC2%. 
GAINO%.GAlNJ%. 

GAIN%.FlNI9r 
GLOBAL VLDI%.VLD2% 

DEBUT:: 

R I ÎM IN IT l A LIS ATION * * ***** ***** **** *** * * 

X% =0 :GAINJ%=0 :G AÏNOU “ri :RANDOMIZE SECOND 
DO 

X%=X%+l:A f /r(X9r)=4 
UNTIL X%= 1 2 

CLS : REM AFFIGAGE TA B L E A u ********* 

G ST Y LE 0 :GTMODE3 
GAT 40,15: REM 20,9 POUR SERIES 3 
CHILI.. 281,97,0 REM 140.48,0 
X%=0 
DO 

GAT 63+XU46.13 : REM 31+X%*23.8 
GPRINT 12- XL 

GAI’ 63+X%*46. 1 26 :RHM 3 1+X%*23,65 

GPRINT l+XU 

GAT 45+X%*46 20 REM 22+X%*23, 1 1 
G F! LL 4 1,4 1,1 :RKM 21,21,1 
GAT 45+XU*46,66 :REM 22+X%*23,34 
GFILL 41.41,1 :REM 21,21,1 
X%=X9 î fl 
UNTIL X%=6 

GSTYLE 9 :REM GSTYLE0 


î 4: 4; A 4; 


GAT 5.155 :RHM 2.79 

GPRINT «VOULEZ- VOUS COM MENCER ( u/ in >» 

GU -G ET 

1F G%-78 : X%- 1 2-INT(RND*6) :XMAX%=X% :GOTO BEGIN :ENDIF 

JOUEUR:: :RHM COUP DU JOUEUR *********** 

LIM U =6 
TERMIN: 

IF FINI%=I : GOTO Fl N JEU :END1F 
GAT 240,155 :REM 2,79 
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AWELE SUR PSION SERIES 3/3A 


G PR INI «. Tapez votre numéro de case 
G%=GET 

IF G%<49 OR G%>54 :GOTO JOUEUR : EN D I F 
X%=G%-48 

VALU): :REM VERIFIE VALIDITE DU COUP**** 

IF VLD%=I 
GOTO JOUEUR 
EN DI F 
GAIN%=0 

MVT: :REM EFFECTUE LE COUP ************* 

PRISE: 

G A 1 NJ % -G AIN J %+G A I N % 

A FF: 

GAP 5,155 :REM 2.79 

GPRINT «Vous avez joué EN Tapez ESPACE pour coup 

ordinateur .» 

RETOUR:: 

G%=GET :IFG%<>32 ;GOTO RETOUR : END JF 
GAT 195 A 55 : REM 2.79 
GPRINT «. REFLEXION ...» 

ORDJN:: :REM COUP DE L’ORDINATEUR **** 

LIM%=0 

TERMIN: 

IF FINI%=I ; GOTO FINJEU :ENDIF 
X %-0 : SC MAX %=- 1 00 

DO : REM SAUVEGARDE POSITION I MUAI. F • 

X%=X%+ 1 : R I %( X %)~A%( X%) 

EM II. X%= 1 2 

X%=6 :REM REFLEXION ORDINATEUR 1ER NIVEAU** 

DO :REM TESTE CHAQUE COUP****************** 

X%=X%+1 

Y%=0 :REM RESTITUE POSITION INITIALE***** 

DO 

Y %=Y %+ 1 : A %( Y %)=R I %( Y % ) 

UNTILY%=12 

VALID: :REM SI COUP POSSIBLE ************** 

VLDÎ%=VLD% 
l P VLD 1 %<> I 

VIVT: :REM ON EFFECTUE LE COUP *********** 

EVAL: :REM ON L’EVALUE ****************** 

SCl%=SCORE% 

REM REFLEXION 2F. NIVEAU *************** 

Z%=0 :LIM%=6 :SC2%=0 

DO :REM SAUVEGARDE POSITION INTERMEDIAIRE** 

Z%=Z%+ ! : R2% (Z% }=A%(Z% ) 

LîNTIL Z%=12 

7.%=X% 

X%=0 

DO: 

REM TESTE COUPS JOUEUR ************ 

X %-X %= I 
Y %-0 : 

REM RESTITUTE POSITION INTERMEDIAIRE 
DO 

Y%=Y%+ : A % ( Y %■) = R 2 % ( Y % ) 

UNTIL Y%= 1 2 

VALID: :REM SI COUP POSSIBLE ******* 


VLD2%=VLD9 


‘■V 


IF VLD2%<> 1 

MVT: :REM ON L’EFFECTUE ********** 

EVAL: :REM ON L’EVALUE *********** 

IF SCORE%>SC2% :SC2%=SCORE% : END IF 
ENDIF 

UNTIL X%-6 

X%=Z%-:REM RESTITUE X ******************** 

L1M%=0 

SCORE%=SC I %-SC2% :REM DETERMINE SCORE***** 

IF SCORE%=SCMAX% :XMAX%=X% : ENDIF 

IF SCORE% >SCMAX% :SCMAX%=SCORE% :XMAX%=X% : ENDIF 
ENDIF 

UNTIL X%= 1 2 :REM FIN REFLEXION *********** 


x A A 


* 




r » 


X%=XMAX% :REM ORDINATEUR JOUE ********* 

Y %=0 :REM RESTITUE POSITION INITIALE**** 

DO 

Y %=Y % + 1 : A 7t ( Y 9r )=R 1 %( Y % ) 

UNTILY%=12 
BEGIN: : 

GAIN%=0 
MVT: 

PRISE: 

GA.1N0%=G A I MO%+GAlN% 

A FF: 

GAT 05. 155 :REM 2,79 

GPRINT «L'Ordinateur a joué «,XM AX%.» en « ,XM9f ,» 

GOTO JOUEUR 

FINJEU: : R EM LE JEU EST TERMINE*********** 

X%=() :RHM COMPTE PIONS RESTANTS*********** 

DO 

X%=X%+] 

i F X %<7 : G A I NJ G -G A I N J % + A % ( X % ) : EN D I F 
IF X%>6 : G A I N O U =G AI N O % + A % ( X % } : EN DI F 
UNTIL X%=12 
GAT 5 J 55 :REM 2.79 
IF GAINJ% > GAI NO 97 

GPRINT «* VOUS AVEZ GAGNEZ PAR «,GA1NJ%,» A «,GAINO<? 
Autre partie ? (O/N) 

ENDIF 

IF GAINOVr > GAI N.I Ve GPRINT «* L’ORDINATEUR A GAGNE PAR 
«,GAINO%.» A «,GAINJ%,». 

Autre partie ? (O/N) 

ENDIF 

IF GAINJ% = GAIN097 

GPRINT «* MATCH NUL... AUTRE 

parti ? (O/N) 

ENDIF G%=GPT 
IF G Z- =79 : GOTO DEBUT : ENDIF 
EN DP 

PROC A FF: :REM AFFICHAGE DE CHAQUE COUP*** 

LOCAL K % 

K%=() 

DO 

GAT 62+K%+46,5 1 :REM 3I+K%*23.26 
I F A%( 1 2- K% )<>() 

GPRINT A%( i 2-K9Ï ) 

ELSE G PR 1 NT « « : R EM « 

EN D l F GAT 62+K9P*46.97 : REM 3 1 +K%*23,48 
IF A%(i+K%)<>0 
GPRINT A9c( l+K'T ) 

ELSE GPRINT « « :REM « « 

ENDIF K%=k%+1 
UNTIL K%=6 
GAT 340,51 :REM 170,25 
GPRINT «< ORDIN. :» .GA1NOC 
GAT 340. 1 00 : REM 170,50 
GPRINT «< J OU EU R : »,G A i N J % 

EN DP 

PROC MVT: :REM EFFECTUE MOUVEMENT******** 

LOCAL LONG%. K%,Z% 

LO N G% ~A % ( X % I :K%=0 :Z %=X% 

A%(X%)=0 

DO 

K%=K%+ 1 

X%=X%+ 1 1F X%>1 2 :X%-X%- 1 2 : ENDIF 
A % ( x % ) = A % (X % )+ 1 

IF X%=7M : A%(X% )= A%(X% )- 1 :1 ,ONG%=LONG%+l :ENDI F 
UNTIL K%=LONG'T 

XM%=X% :REM XM% -DERNIER CASE ATTEINTE***** 

X%=Z% 

EN DP 

PROC VALID: REM VALIDITE DU COUP ********** 

VLD%=0 

REM SI CASE VIDE? 

IF A%(X%)=() :VLD%=1 ;ENDIF 
REM OU SI ADVERSAIRE VIDE? 

IFA%(LIM%+ 1 )=() AND A%(LIM%+2)=0 AND A%(LIM%+3)=0 AND 
A%( Ll M%+4)=0 AN D A%( LIM )=0 A N D A*% ( UM%+6)4I 
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IF X%+A%(X%) < 1 3-LIMG :REM ET COl.'P NE LH REMPLIT PAS 
VLD%=! :REM COUP NON VALIDE********** 

ENDIF 
EN DI F 
ENDP 

PROC EVAL: :REM DONNE UN SCORE A POSITION *** 

LOCAL K% 

PRISE: :REM EN COMPTANT LES PRISES********* 

K%=0 :REM ET 1 ES CASES DE1 HT 2 PIONS****** 

DO 

K%~K%+ 1 

IF K%<7 AND (A%( K%)= I OR A%(K% )=2) 

: S CO RH % = S CO RE % + A % ( K % ) : ENDIF 

II K%>6 AND (A%('K%)=1 OR A%(K%)=2) : SCOR E%=SCORF %- 
A%( K%) : ENDIF 

UNTIL K%=Ï2ENDP 

PROC PRISE: :REM VERIFIE SI PIONS PRIS **** 

LOCAL G% 

SCORE%=0: GAIN%=Ü C»%=XM% :REM DERNIERE CASE REM- 

P]^| j-2 -P ^ sk T T-: î|ï -4: 

1F LIM%={) AND 0%>6 :GOTO FIN : ENDIF 
IF LIM%=6 AND G%<7 :GOTO FIN : ENDIF 
IFA%(G%)-2 OR A%{G%)=3 
SCORE%=SCORE%+ 1 0*A%(G%) 

GAI N%-GAIN %+A%(G% » 

A%(G%)=0 


BREAK 
}% ) 


I F GG > I +LIM% DO G %=G%- 1 

I F A%(G9(:)<>2 AND A%( G%)<>3 
ENDIF SCORE%=SCORE%+ 1 ()*, 

G A I N °Â + G A I N % + A % ( G % } 

A%(G%)=0 
UNTIL G%- 1 ■ U MG 
ENDIF 
ENDIF FIN- 
END P 

PROCTERM1N: :REM VERIFIE SI JEU TERMINE *** 

LOCAL SOMME# XG = 6 - 1 . IMG ;F'|NI%=1 :REM SI AUCUN COUP 
VALIDE, FIN* 

DO XG-XG+l VALID: 

IF VLÜ% =0 :FINI% =() : END IF 
UNTIL X%=I2-L1M% 

RFM SI DIFFERENCE SCORES > NB DF. PIONS RESTANTS 
SOMME %={) :X%=0 
DO 

X%=X%+I 

SOMM EG-SOMM E%+A%(X%) 

UNTIL X%= 12 

EFSOMMHG <GAINJG-GAINO% OR S O M M E% < G A I N O G - G A i N I G 

FI N I %= 1 

ENDIF 

ENDP 


IMPRESSION SERIE SUR IMPRIMANTE PARALLELE 

pour PSION II (par Michel SANTURENNE) 

Posseseurs d'un ATARI 520ST, et d'une interface série, réjouissez-vous ! Vous allez pouvoir imprimer à 
partir de votre PSION II. Une fois chargé en mémoire, il suffît d'appeler le programme pour imprimer 
fi importe quel fichier (agenda, note, cpl ...) ; et celui-ci reste actif tant que l'on ne touche pas à la souris. 
Cnt en GFA basic 3.5, cela ne doit pas poser beaucoup de problèmes pour l'adapter à une autre machine . 


bauds 


XBIOS (3I,3,I,2,L:-I) 

dch: 

PR! NT : PR INT : PR INT : PR INT 

PRINT Attente d'impression" 

DO 

i np?( 1 ) 

LOOP UNTIL aoO 

PRINT : PRINT : PRINT : PRINT : PRINT 

PRINT " Début d'i impression" 

PRINT : PRINT 
PRINT " 

DO 

a$=INPAUX$ 

LPRINT a$; 

LOOP UNTIL MOUSEK 
CLS 

GOTO deb 

Version accessoire écrit en GFA Basic 3.5 el compilé en 3.5, mais peut 
êlre utilisé en tant que programme en GFA 2.0 (listing précédent) 

Sm 15000 ;minimum mémoire 


appuyer sur un bouton de la souris en fin d’impression” 


apJd&=AFPL_lNITQ 
IF apjd& 

PRINT "impression PSION chargée" 

VS Y NC 

VSYNC 

me_id&=MENU_REGISTER(ap_id&." 

DO 

~EVNT_MESAG(0) 

IF MENU(1)=40 


PSION") 


deb: 


9600 bauds 


ALERi 1 , "imprimer", 1 , "oui : non",x 
IF x%=2 

QUIT 

ENDIF 

~XBIOS(3 1 ,3. 1 ,2,L:- 1 ) 

DO 

a=INP?( I ) 

LOOP UNTIL aoO 
DO 

aS=INPAUX$ 

LPRINT a$; 

LOOP UNTIL MOUSEK ; attente clic souris 

ALERT 2," AUTRE IMPRESSION ?",L"OUI : NON" b 
IF b=2 

QUIT 
DI F 


Michel SAN TURENNE est pilote d'avion. M a également réalisé un 
logiciel su i PSION IL de navigation aérienne, apparemment de pre- 
mia e qualité dont voici quelques caractéristiques concernant les com- 
mandes et calculs, (les initiés comprendront ... eux M!) 

Atmosphère - Plan vertical - Altimétrie - Mécanique du vol - Naviga- 
tion- Lever et coucher du soleil - QDR - Centrage avion - Vitesse etc... 
R"R ~ CONV ERS IONS - Simulation complète de la machine à calculer 
spécialisée aéronautique PATH R ND ER CX1 - Gestion des balises - 
Way points et cat aeiéristiques des aérodromes - Impression possible 
sur imprimante sur forme de liste ou de tableau. 


lérons voir ce programme dans POCHE COMPUTERS bientôt... 
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essai : UN LECTEUR DE DISQUETTES 

POUR PSION sériés 3/3A 


Un lecteur de disquette pour le PSION , est-ce possible ? Eh bien oui , nous en avons testé un ; celui commer- 
cialisé par MICROCARDS depuis le début de cette année. Vous me direz : à quoi peut bien servir un boittier 
lecteur de disquettes quand on a acheté le PSION sériés justement parcequ'il est tout petit ? Ceci peut 
paraître à première vue une contradiction fondamentamentale... 



Mais à la réflexion , on s 'aperçoit vite que la con- 
servation des données par SSD coûte cher sur le 
PSION alors qu ' une disquette de 1 ,44MB coûte moins 
de 10F pièce ! De plus , quel plaisir de travailler chez 
soi ou au bureau avec un système fiable et puissant ! 
Dans ce cas , la portabilité du PSION n ' est pas son 
meilleur atout. Au contraire , la recherche de puis- 
sance, de versatilité et d'échanges possibles sont pri- 
mordiaux. 

Puis, on enlève le fil à la patte , et le PSION redevient 

une merveilleuse petite machine autonome. 

I installation: 

Le lecteur de disquettes fonctionne sur secteur (une alimenta- 
tion spéciale est fournie) et la transmission des données passe 
par la sortie série du PSION sériés 3 ou 3a. I! est donc nécessaire 
de posséder au préalable le "sérial link" 

Cependant, nul besoin d'autre chose ; en effet, on utilise le soft 
du sérial link pour communiquer avec le lecteur. Après installa- 
tion du soft "Comms" dans le PSION, la connectique est très 
simple. D’une part la liaison sérial link ( I connecteur 9 points et 
! 25 points sont prévus), et d'autre part, la liaison secteur par 
l'adaptateur. L'installation du soft Comms. app est décrite dans 
le manuel du Psion et est très simple. Ensuite, créer un icône 
supplémentaire. 

II faut maintenant régler les paramètres de communications qui 
sont les suivants : 9600 bauds - 8 bits - I bit de stop - sans parité 

- Ignore parité ; oui - Xon/xoff ; Off - Rts/Cts ; OIT - Dsr/Dtr ; 
Off-Dcd;Off, 

Puis, l'accès au menu principal apparaît après avoir tapé "S3” 
(comme sériés 3) et répondu à quelques questions pour vérifier 
la connection : adaptateur et lecteur. 

Sur l'écran du PSION, vous avez alors le chox de : 

- Lister les fichiers contenus sur disquettes 


- Sauvegarder un fichier sur disquette 

- Charger un fichier depuis une disquette 

- Afficher le directory 

_r 

- Utilitaires (Formater - changer l'heure ou la date - renommer 
un 

fichier - effacer un fichier) 

Toutes ces fonctions sont accessibles directement en appuyant 
sur une touche. Les transferts sont moins rapides qu'à partir d'une 
SSD, c'est évident, mais cela reste correct. Le lecteur accepte 
deux types de disquettes : des 720K ou des 1.44MB. On peut les 
formater indifféremment (environ 1 minutes 30 pour la première 
et 2 minutes pour la seconde). 

Le format est compatible PC, Pour transférer par exemple des 
données de votre PSION sériés 3/3a vers un PC compatible, rien 
de plus simple. 

a) sauvegarder vos données sur PSION dans un format PC com- 
patible (par exemple au format ASCII ".text ") 

b) transférer vos données vers le lecteur de disquettes. 

c) introduisez cette disquette dans un PC 

d) importez ies données à partir de votre traitement de textes ou 
base de données préférée. Quant au tableur, l'extension .WKI 
est reconnue par la majorité des tableurs PC, sous Dos ou sous 
Windows. 

Pour terminer, voici les spécifications techniques du lecteur : 
Formatage des disquettes : MS-DOS 3.3 et plus compatible 
Capacité : 1.44MB par disquette (720K supportée aussi) 
Dimensions : 185mm x ! 17mm x 43mm 
Poids : Ikg 

Alimentation 6-9volls LA 

Fichiers : compatibles PC (224 maximum en racine) 

(224 sous directories maximum) 
Dernière chose importante, MICROCARDS a considérablement 
baissé les prix du lecteur. Celui-ci devenant beaucoup accessi- 
ble et entrant en concurrence directe avec le système des SSD. 

JL LECOMTE 
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Interface de commande 8 sorties 

pour PSION sériés 3a 

par Patrick DOUGUET 

m ° nde ^ h " ,iCr ° i,lf0rmatU l' le ! l “ étique. Depuis 

avenir proche 717,7, U PSION " e f aillit P*° « cette engouement. Dans un 

>Sll 77,771, Car c T m,rement " Certaim </ui ,ablent sur Ul reconnaissance de l 'écriture 

. . annonce déjà un nouveau modèle à commande vocale ! Rendez-vous dans deux ans En attentant 

ans quelle mesure un ordinateur peut-il être considéré comme intelligent ? Ouelles sont ses capacités et ses 

^ C '« * - étions que nous allons 

ÏI°m7rMPC U êtr T nSid ï n f COmme VélémeM le en quelque sorte , du robot. 1, v « 

ment; or pour le transformer en robot que lui manque-t-il ? encombre- 

Tout d’abord la capacité d’émettre des signaux à destination de son environnement C’est donc à ce premier 

problème que nous allons nous consacrer. Pour tenir compte de la grande variété de sy tèm n Zm t aü 
nous avons choisi d’utiliser la prise parallèle qui existe sur tous micros uifo, manques, 

sériel TJs %dâlÎ,"Z "7 üd r°" S ? luS rarement aux heureux possesseurs de PSION 

Ja, mais l adaptation logicielle a d autres machines ne pose, en principe, aucun problèmes. 

\otre réalisation va permettre de commander une première série de huit relais, qui permettrons d’envisager 
îïS Æït?*- ^ntifique, robotique, ludique, ...>. Pour cela regardons le schLa 

IZTune àcheZè DB S TZ T T ^ ^ ^ ^femelle, les autres ehoi- 

une fiche type 1)112.% les indications de numéro de broche étant valables dans les deux cas 

e 777/ remWrtemPS ’ 7 US relier ° m leSP ' 0tS " et25 pour dire à l’ordinateur que le périphérique 

U recev ° lr ses 'es- 1. es plots 2 a 9 servent, en théorie, à transmettre les données correspondant à la 

ZZ,n7" caracte , res . vers t lme ' m P r ' ma, ite, ce sont ces données que nous allons détourner de leur 

lent nr 7 ‘Z™ de DATA est reliée à «« photo-coupleur (2N35 ou équiva- 

le t / ' S °i e \ C ectru j l,ement ,e PSION des circuits commandés (surtout s’ils véhiculent du secteur 2V) V) 
Ui sortie du photo-coupleur alimente le relais. C’est tout ce qu ’il nous faut pour construire Ztn UiZflce 

ZZZZn’lTZsde ZeSt ^ l °7 el £ " baSk ° PI ^ V ° ilà n ° tre "b 01 P rêt * entrer en fonction. Rappelez- 
q " y 11 pas de mau vais r °bots, meus seulement de robots mal programmés. 

PROGRAM A PSION 

C e programme permet d'allumer ou d éteindre une sortie quelconque sans affecter l’état des autres sorties Pour 
visualiser la sortie on optera pour une série de diodes led. 

wiBM NéZZ qUi blZai ? menl - ne ëè,C PUS lcs '“"s in et out que l’on trouve habituellement en 
q ic sut' IBM. Neanmoins une astuce va nous permettre de pallier à cette déficience 

our 'mpnmer un caractère, on envoie un code compris entre 0 et 255 (ex. le code chr$(65) imprime la lettre A) 

I ce code Vient lui-meme du binaire. Là réside la solution. 010101 1 1 en binaire donne 87 en décimal cela 

représentera aussi 1 état des sorties : Sorties n» 8, 6, 4 inactives et sorties n° 1, 2. 3, 5. 7 actives 11 ne reste plus 

qu a utilisu eoircctement cette conversion pour commander indépendamment chaque relais 


PROC. SORTIE: 
LOCAL S(8) 
LOCAL A(8) 
LOCAL n,e*x 
DO 


PRJNT «CHOIX DE LA SORTIE A COMMAN 


DER ( I à 8):» 

IN PUT n 

PRINT «ETAT DE LA SORTIE : 
()=OFF» 

IN PUT e 
S(n)=e 


1 = 
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UNTIL x=10 
ECLOSE 
EN DP 


x=S( I )+2*S(2)+4*S(3)+8*S(4)+ i 6*S(5)+32*S(6)+64*S(7 )+ 

1 28*S(8) 

PR INT «JE COMMANDE LA SORTIE : «;n 
l .PRINT CHR$(x) 

C'ctte routine de test permet de vérifier le bon fonctionnement de l’interface et permet d'allumer et d’éteindre chaque relais. Partant 

tic ce petit pi ogt am me, bien des applications roboticjues peuvent être envisagées, et à votre imagination de faire le reste... Par 

exemple déciochei le téléphoné, puisque votre PSION saii composer un numéro, piloter une «tortue» électronique ou, pourquoi 
pas, un bras. 

I oui ceux que les léalisations électroniques rebutent, pas de panique, vous pouvez vous procurer i interface complète, montée et 
testée en envoyant un chèque de 690F (franco de port) à POCHE COMPUTERS. 

RI Cil D E 



SCHEMA : 


Liste des composa 

K I = 220 ohms 
Cl ! = TIL MX 
D = IN4I48 
E = dais 12V 


connecteur 
A ni phénol 
36 broches femelle 
à connecter à la 
prise parallèle du 
psion S 3 


2 «r 

3 o- 

4 <r 

5 o 

6 (E 


7 <r 
S (E 


9 (E 


11 O 1 

25 o—l 


WA— | ! T : sortie 1 


■ 


vvvET 






7“ fh L _« 


az/v4 


f’KJJ 





77 ï- - - J 


— < WvT 


à? 


-*AA 


rh 







'-VA 


12 volts externe 


sortie 2 


1 T- sortie 3 


ti . , 

: sortie 4 


I 


sortie 5 


I Et- sortie 6 

mi 


ya/'vVi-i . — sortie 7 

MH i; 


so rt i e 8 


ié. SrDc^hacc^soires^our votre PSIQN ? 

Jîul' c ®!F arez (ttc>!ü ’ | m 

SSD RAM 128K : 735F SSD RAM 256K : 890F(jnou veau I) SSD RAM 5121V: 1490F 
SSD RAM 1MB : 2920F : SSD FLASH 128K : 520F SSD FLASH 256K (nouveau I) : 720F 
SSD FLASH 51 2K ; t2201. SSD FLASH IMB : 2090F SSD FLASH 2MB : 2890F 
Lelteur de disquettes : 2790| Fax-modem : 2850F Emulateur minitel (câble + soft) : 

■ ipURr. • ••• ■ : -1: : 4--. ■ ^ : : 

:| E fl B. jg 

iTalip confiance à un spécialiste des pockets de renommée nationale : 

" [CROCARDS - 42220 - BURDIGNES - FRANCE 

/ Am Téf%.39.68.13: WKp39.i9.60 'WiSft M 


1290F 


.A.- 


si::.. 
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FILE FOUND pour PSION sériés 3 

Retrouver un fichier ? pas de problème avec ce programme de Gilles JEAN 


RF-M Auteur Gilles JEAN 

REM Version 1.0 

A PP Ff 

type 0 
icon»ff‘.pic» 

EN DA 

PROC START: 

global fS(J28) 
global fich$(12) 
global volume$(32) 
global source${ 1 28) 
global nbf% 
local ret% 
local volS(3) 
local vol% 
local int%(8) 
lock on 

giprint «Gilles JEAN - Shareware diffusable vl.lF» 
trap close 

trap mkdir»loc: :m:\opd» :REM Modif 1 . If 

trap delete»loc:: m:\opd\ff.dat» 

trap c reate» I oc : : m: \opd\ff.dat », a, a $ 

vol$=»MAB» 

screen 38.6,2,2 

gat 0,2 

gborder 0,240,66 
do 

vol%=0 :nbf%=0 
dinit 

dtexi «»,» Tapez tout ou partie du nom», $2 
dtext «»,»du fichier à retrouver sans joker»,; 
dédit fich$,»Chcrcher» 
if dialog 


cls 

do 


Vol%=vol%4- 1 


s o u r c c S = » 1 o c : : » + ni i d S ( v o 1 S , v o I % , 1 )+»;\» 


re Fi -de v i n fo % : ( s ou rce$ ,ad dr(i nt% ( 1 ) ),addr 

(volume$)) 
if ret%>=4) 

media: 

setpath sourccS 
f$— dir$( sourccS ) 
do 


file: 

f$=d ]!-$(«») 
until I S— »■■> 
while eount 
First 

source$=a.a$+»\» 

erase 

setpath sourccS 
f$=dirS(source$) 
if lcn(f$) 
do 

fi le: 

fS=dirS(«») 
until f$=»» 

endif 

endwh 


endif 
until vol%=3 


dst 


e 


busy off 
gai 0.77 

■V- 

gprintb «»,240, 1 

giprint gen${nbf%,3)+» fichier(s) trouvc(s)» 
break 


e 


ndif 


until 0 
close 

trap delete» loe: : m:\opd\ff.dat 
f%=flgetat%:{f$) 
if (f% and S 10) 
a.aS=fS 
a p pend 


» 


else 


print fS 

if loc(f$,fich$) 

nbf%=nbf%+ 1 
beep 5,500 

giprint»Tapez sur une touche 

set 

busy «Un instant SVP... 


» 


» 


endif 


endif 


EN DP 
PROC 


EN DP 
PROC 


MEDIA: 

gat 0,77 

gprintb upperS(souree$)+» - «+upper$(voiume$),240, 1 
busy «Un instant SVP...» 

de v i nfo% :( device$,pî n fo%,pvol % ) 

local exec%{10) 

local codc% 

local rtn% 

local buffcr${64) 

local pbuffer% 

local dev$( 1 29) 

local pdev% 

local i% 

code%=addr(exec%( 1 )) 

poke w code 77. S0 A b4 

pokew ; code%+2,$87cd 

poke w c ode % +4,$027 2 

poke w code 1 %■ +6.$c 03 3 

poke b code 97+8 ,$cb 

pbuffer% = addr(bul'fer$) 

dev$ = device$+chrS(0) 

pdev% = addr(dcv$)+l 

rtn% = u sr ( c o de % , 0 , p dev % , p bu f f e r % , 0) 

if rtn% >= 0 

pokew pin fo%,peekw(pbuffer% ) 
poke w p i n ! o % + 2 , peek w( p b u ITcr%+2 ) 
pokew p i nfo % +4 ,peek w(p bu ffer%+4) 
pokel p i nfo % +6,peekl(pbu ffer% +6) 
pokel pinto%+ 1 0,peekl(pbuffer%+ 10) 
pokew pinfo%+ 14,peekw(pbuffer%+46) 
i %=0 

while peekb(pbuffer%+ 1 4+i%)<>0 and i%< 
poke b pvol%+ 1 +i%,peekb(pbuffei 

\9c=]%+\ 

endwh 

pokeb pvoI%,i% 

endif 

return rtn % 


=32 
I4+i%) 


EN DP 
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FOUND pour PSION sériés 3 


proc flgetat%:(filenm$) 
local exec%( 10) 
local code% 
local rtn% 
local pname% 
local nmcopy$( 1 29) 


local buffer$(40) 
local pbuHci'% 
code% =addr(excc% ( 1 )) 
pokew code%,$08b4 
poke w code % +2, S 87 cd 
pokew code%+4,S0272 
pokew code%+6,$c033 
pokeb code%+8,$cb 
pbulïet‘% = addr(bulïer$) 
nmcopy$ = filenm$ 


pname% = addr(nmcopy$) 
pokeb pnamc% + len(nmcopy$)+l,0 
rtn%-usr(code%,0,pname%+ 1 ,pbuffer%,0) 
i f r(n% >= 0 

pbuffer% = pbuffer% + 2 
rtn% = peek w (p b u ffc r % ) 

endif 

return rtn% 
en dp 


BACKUP pour PSION sériés 3 


Vous connaissez tous ce qu'est un Backup ? Il s'agit d'une sauvegarde complète de vos informations : 

(ïilles JEAN nous a concocté ce programme. 


» 


A PP Backup3 
type 0 

icon «backup3.pic» 

END A 

PROC START; 

global f$( 128),source$(l 28),destin$( 128) 
global sumoct&,nbf&,nbe& 
local g%,p% 
lock on 

giprint»Gilles JEAN - Shareware diffusable vl JF 

source$=»loc::m:\» 

destin$=»loc::b:\» 

do 

trap close 

trap mkdir»loc:: m:\opd» :REM Modif I J F 

trap deiete»loc: ; m:\opd\backup.dat» 

irap create»loc::m:\opd\backup + dat» ? a,a$ 

setpath source$ 

sumoct&=0 

nbf&=0 

nbe&-() 

dinït»Backup 1 1 1 » 
dflle sourceS,» Source», 4 
dfile destin$,»Destination»,4 
if dial og 

if souree$=destm$ 

giprim»Source & destination 
doivent être différent» 


else 


fond: 

f$=dir$(source$) 

do 

file: 

f$=dirS{ «»} 
u mil f$ ==»» 
do 

if count 

fïrst 

source$=a.a$+»\» 

erase 

setpath sourceS 
f$-di r $ ( so u rc e $ ) 
îf len(fS) 
do 

file: 

f$=dir$(«») 
until f$=»» 
endîf 
else break 
endif 
until 0 


gclock off 
trap close 

trap de lete» loc : : m :\opd\backu p .d at 
dinit» Informations Backup 111» 
dtext «»,gen$(sumoct&, 12)+» 
Ociet(s) tranféré(s)»,2 
dtext «», gen$(nbf&, 1 2)+» Fi- 


» 


ch îer( s) I ransféré{ s)» ,2 
dtext «»,gen$(nbe&,12)+» Fi- 
chier! s) non transféré! s)», 2 
dbuttons «Annuler», -27 
dialog 

endif 

else 

lock off 
break 
endif 

until 0 
EN DP 

PROC FOND: 
g update off 
gsîyle 0 

gat 0,0 :gborder $2(M», 240,25 
gai 5,10 :gprintb «Source : «+souree$, 230,2 
gat 5,20 igprimb «Destination : «+destin$, 230,2 
gat 0,30 :gborder $200,1 15J5 
gat 8,41 tgprîmb» Début : «,50,2 
gat 55,41 :gprintb right$(gen$( l00+hour,3),2)+»:>> 
+right$(gen$(100+minute,3) 1 2)+»:»+right$ 
(genS( I0()fseeond,3),2),52 ? I 
gat 1 25,30 igborder S200, 115,15 
gat 133,41 :gprintb»Heure :»,55,2 
gat 190,34 :gdock on J or $20 
gat 0,50 

gborder $203,240,30 
e update on 

END P 
PROC lîle: 

I oca I dec %( 6) J nt%(6 ) ,err% ,oc l & , f % 
f$=parse$(. f$,sou rce$ ,dec% ( ) ) 
gat 4,72 
g style 9 

gprintb riglu$f f$ ? len(f$)-7),230,2 

t%=flgetat%:(f$) 

if (f% and $ 1 0) 

a.a$=f$ 

append 

else 

trap 

MK DI R destin$+mid$(l'$ f dec%(3)+l ,dec%(4} 

-(dec%(3)+])) 

err%=tlinfo%:(f$ ? addr(int%( i ))) 
if err%>-l 

oct &— peek 1( add r( i n t P/c ( 3 )) ) 
trap 

copy f$,destinS+mid$(f$,dec%(3)+l ,128) 

if en 

giprint enrS(err) 
nbe&=nbe&-rl 

else sumocl&=smiioct&4-oct& 

nbf&=nbf&+ 1 

endif 

endif 

endif 
EN DP 

I > R O C f 1 i n f< ) % : ( i i 1 c n m$,p status % ) 


local exec%( 10) 

local code % 

local rtn% 

local pname% 

local mncopy${129) 

local buffer$(40) 

local pbul'fer% 

local ptostat% 

code%-addr(exec%( I )) 

pokew code%,$08b4 

pokew code%+2,$87ed 

pokew eode%+4 ? $0272 

pokew eode%+6,$cQ33 

pokeb code%+8,$cb 

pbuffer% = addr(buffer$) 

mncopy$ = tilenmS 

pname% = addr(nmcopy$) 

pokeb pname% + len(nmcopy$)+l,0 

rtn%=usr(code%,0,pname%+ 1 ,pbuffer%,0) 

ptostat% = pstatus% 

pokew ptostat%,peekw{pbuffer%) 

ptostat% = ptostat% + 2 

pbuffer% = pbuffer% + 2 

pokew ptos t at% ,peekw( pbuf fer% ) 

ptostat% = ptostat% + 2 

pbuffer% - pbuffer% + 2 

poke I ptostat% , pce kl ( pbu ffer% ) 

ptostat% = ptostat% + 4 

pbuffer% = pbuffer% + 4 

pokel p t o s t.at. % , pcc k 1 ( p b u f f e r% ) 

return rtn% 

EN DP 

proc llgeiat%:(filenm$) 
local exec%( 10) 
local code% 
local rtn% 
local pnarne% 
local nmcopy$( 1 29) 

local bütfer$(40) 

local pbuffer% 

code%-addr(exec%( 1 )) 

pokew code%,$08b4 

pokew code%+2,$87ed 

pokew code%+4,$0272 

pokew code%+6,$c033 

pokeb code%+8,$cb 

pbuffer% = addr(buffer$) 

nmcopy$ = lilenmS 

pname% = addr(nmcopy$) 

pokeb pname% + len(nmcopy$)+l,0 

rtn%=usr(code%,0,pname%+ i ,pbuffer%,0) 

if rtn% >= 0 

pbuffer% = pbuffer% + 2 

rtn% = peekw(pbuffer%) 

endif 

retum rtn% 

endp 
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RUBRIQUE TI-85 


Quelques programmes pour TI-85 
par Stéphane OUVETTE 

-RACINE: Mise en fraction des racines carrées, sous forme formelle et sirnpli- 


-ZREELS I G: Conveision des variables numériques en tvpe chaîne de caractè- 
res" (REAL -> STRINCÎ) 

-RACINEC: Programme identique en programme «racine», mais cette lois-ci 
pour les variables complexes. 

-POLYNOME: Programme qui écrit sous forme formelle les polynômes factori- 
sés automatiquement. 


degré >2 (mais <30). 

I! nécessite les sous-programmes 
-Z racinec -Racine -Zréelstg 
PROGRAM: POLYNOME 
Input « Degrc: »,D 
If D>2:Goto DEGRE3 
Disp «Ax z +Bx+C-0» 

Prompt A,B,C 
Lbl A2 
BMA*C->D 
Disp « A=B 2 -4A*C=” 


PROGRAMME RACINE 

:ANS->A6:IF (fPART A6)~ =0:Then;A6:Zréelstg:Retum:End 
: I ->A7 :If A6<0:- 1 ->A7 
: I ->A8 
:Lbl A 1 

:(A6*A8) 2 ->A 1 0:A8+ 1 ->A8:lf (iPart A I ())<>A 1 0 
Goto A i 

:A8-1->A8: 1->A6 
: Lbl A2 

: A 1 0/A6->A 1 1 : A6+ 1 -> A6 
:If A 1 lo(iPart A ! 1 ) 

Goto A 2 
: V A I 1->A9 
:If A9o(iPart A9) 

Goto A 2 

: A6- 1 ->A6; A9* A7->A9 

:gcd(abs AS.abs A9)->A10:A8/A10->A8:A9/ÀI0->A9 
: A9:ZréelStg:Ans->A 1 0 

:If A6<> I :Then: A6:ZréelStg:»{«+A 1 0+»/»+Ans+»)»->A 1 0: And 

:li A8= =1 :Then:A10:Retum:Else:A8:ZréelStg:A lO+»/»+Ans->AIO:End 

! C e programme nécessite la présence du sous programme ZréelStg. 


Exemples d’utilisation: 



Entrées: 


Affichages; 

0,692820323028: Racine - 

— > 

(2/3)/5 

:Âns 



0. 3 3 3 3 3 3 33 3 : Racine : An s 

— > 

1/3 

789/456: Racine: Ans — — 

— > 

263/152 


:D:racine:Disp Ans 
:lf D<0:Stop 

:ll I y~ =0: Disp «X=-R/2A=», -B/2 A^ Frac 

:lf D>0:Dîsp "Xl=(-B+ND)/(2A)= M ,(-B+ND)/(2a)^Frac 
: Disp «X2=(-B-VD)/{2A)»,(-B-v f D)/(2A)^Frac 

:If D>0:Then:Disp « «:Outpt(8,&,»I <> <> «):Outpt(8,2,sign 

A):0utpt(8,ç,sign -A):Outpt(8,16,sign A):End 

:Stop 

:Lbl DEGRE3 
: input «Coeff { }:»,CX 
:» «->EQN2 
: Lbl DEG 

:» «->EQN:D+L>dimL CX 
:For(IJ,(dimLCX)-l 
:CX(l):racine 
:EQN+An s+»x»->EQN 
:lf I<dimL CX-1 

:Then:(D+ 1 )-I-:racine:EQN+» A »+Ans+»+»->EQN:End 
:End 

:EQN+»+»->EQN:CX(dimL CX}:racine:EQN+Ans->EQN 
:CILCD 

:Outpt(l, I ,EQN) 

:Jf D- =2:Then:B->D:CX(l)->A:CX(2) :>B:CX(3)->C:EQN2+»(«+EQN+»)»- 

>eqn:Outpt{D+3. i ,eqn):Pause :CILCD:Goto A2:End 
:int ((Ingth EQN)/2l)+l->B 
:St^Eq{EQN,EQN ) :EQN 
:ZRAC1NEV 

:If R= =»N» 


( e programme, à employer en sou s- programme, permet l'écriture des valeurs 
exactes des racines carrées ou des I raclions, en les convertissant en tics variables 


de type «STRING». 

Syntaxe générale = Ans : Racine : Ans 


N. B: Si au bout d’une trentaine de seconde le résultat 
programme, le chiffre n'est pas simpli fiable. 

PROGRAM: ZREELSTG 

:ANS->A1 


n’est pas affiché, stopper le 


:abs round(Al,3)->A2 
: I ->A7 : » « >STR 
-If fPart A2<>0:-2-> A7 
:Repeat ( A2< ! () A ( A7- 1 )) 

:(mod(A2,1 0 A A7)-mod(A2, 1 0 A ( A7- i )))/] 0 A ( A7- 1 )->B 1 
■If (A7= = 1 ) and (fPart AloO):».»+STR->STR 
:sub{stmg,B 1 + 1,1 )+STR->STR 
:A7+l->A7:End 

:lf (iPart A 1= =.Û) and (Alo0):»0.»+STR->STR 
df sign (A 1 )— =- 1 :»-»+STR->STR 
;sub(STR, I .Ingth STR-I)->STR:STR 


:Then:EqKSt(EQN,EQN):EQN2+»(«+EQN+»)»- 

>eqn:Outpt(B+6, 1 ,eqn):Stop:End 

:Outpt(B+2, 1 ,»Raeinc évidente:» ):Outpt(B+2, 17.R) 

:ST^Eq(R,RH) 

:0->A 

:dimL CX->dimL CY 
:FOR(l, I ,D+1 ) 

:RE*A->CY(I) 

:CX(0+CY(1)->A 

:A->CX(I):End 

:Ontpt(B+3,l,CY) 

:Outpt(B+5,l,CX) 

:IfCX(D+ !)<>() 

:Then:Eq^St(EQN,EQN}:EQN2+»{<<+EQN+»)»->eqn: 

Outpt(B+6, 1 ,eqn): Stop: End 
:D-I->D: 

: EQN 2+»( x-»+R+ » )»- > HQN 2 

:Eq^St(EQN,EQN) 

: Pause 
:Goto DEG 


Ce programme sert à convertir des variables de type REAL en type STRING. 11 
est indispensable au programme RACINE. Il est à noter que les chiffres convertis 
sont arrondis à 3 chiffres après la virgule. 

Il nécessite la présence d’une chaîne de caractères constante: 

STRNG: >>0123456789" 


Syntaxe : Ans : Zréelstg : Ans 

type real type sting 

strng «0123456789» 

PROGRAM: RACINEC 

:Ans->CI 


:real Cl:racine:»(«+Ans+»+i*»->C2 
:imag C 1 :racine:C2+Ans+»)»->C2 

Ce programme est l’équivalent des programmes «racine», mais pour les nombres 
complexes, qu’il utilise en sous-programme. 


Le programme suivant permet l’écriture sous forme formelle de polynômes d’un 


PROGRAM: ZRACINEV 

: F.=HON : »N »->R 
:For(x, 10,- 10,-1) 

:lf E= =0 

:Then:x:ZréelSlg:Ans->R:Return:End 

:End 

:For(I,2,3) 

:VL>x 
:If E= =0 

:Then: l:ZréelStg:»y »+Ans->R:Return:End 
:End 

: Ford,- 10,10) 

:If F =0: 1->1:I ’->x 
:If E= =0 

:Then : I : Zrée IStg : »( I /»+Ans+»)»->R:Return:End 
:End 


* 
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RUBRIQUE TI-85 

PROGRAMME CVS 


par Noël BONNET 

Voici un programme qui s'utilise pour V étude des «séries chronologiques ». Il s'agit des 

«coéfficients des variations saisonnières». 


1 (Explications brèves du cours. 

Dans les «séries chronologiques», beaucoup 
de données dépendent de leur date d'observa- 
tion. Par exemple, une société vendra plus de 
maillots de bain l’été que l’hiver. On doit donc 
corriger ces observations dites «brutes» à 
l'aide de «coefficients de variations saison- 
nières» (CVS). 


2)Calcu! des CVS. 

2.1Ca)cul de la moyenne générale. 

C'est la somme des «y» (en restant dans les 
maillots de bain, ce serait le total des ventes) 
divisé par l’éffectif, c’est-à-dire le nombre de 
périodes données dans l’énoncé (souvent ex- 
primé en mois, donc pour un an: 1 2, pour deux 
ans: 24, etc.). 

Somme des «y»(sigma y) 

Mgen= 

Effectif 

2.2Calcul des moyennes mensuelles. 

Par exemple pour une étude de deux ans, ce 
sont les moyennes de chaque mois (janvier, 
février, ..., novembre, décembre). 

Pour janvier : 

CA janvier 1 ° année + CA janvier 2° année 
M me n= — — 


o 


Et ainsi de suite avec les autres mois. 


2.3Calcul des CVS correspondants. 

C'est la moyenne générale divisée par la 
moyenne mensuelle, il faut faire le calcul pour 
chaque mois. 

Mgen 

CVS ( j an v i er )= 

Mmen 


2.4Calcul des données corrigées. 

Il s obtient en divisant les observations «bru- 
tes» par les CVS correspondants. 

Donnée brute 


Donnée corrigée- 

*L_- : 


CVS 

2.5Chiffre d’affaires prévisionnel. 

11 faut d’abord avoir fait une droite de MAYER 
ou les MOINDRE CARRES pour s’en servir. 
Cela permet à l'aide des CVS de trouver des 
valeurs plus réelles que celles sur la droite, ce 
à cause des variations en fonction des saisons. 
CA brut = CA à partir de la droite * CVS 


.^Fonctionnement du programme. 

fout se fait à partir d'un menu. Pour s’en ser- 
vir, il suffit d'appuyer sur l'une des cinq tou- 
ches de fonction (Fl, F2, F3, E4, F5). 

Il faut les éxecuter de gauche à droite, c'est 
très important car vous aurez besoin des pre- 
miers résultats pour faire les autres calculs. 

Il faut faire le tableau en même temps car le 
programme suit l’ordre logique des opérations, 
et il faut eoncerver les résultats. 


Donnez les valeurs demandées, le détail des 


calculs sera donné en même temps que le ré- 
sultat. 

3.1 Explications des touches de fonc- 
tions F l à F5. 

Fl «Mgen»Calcul de la moyenne séné- 

raie, puis retour au menu général. 

F2 «Mmen»Calcul d’unemoyenne men- 

suelle, puis dans un autre menu, possibilité de 
faire une autre CVS ou de retourner au menu 
principal. 

F3 «CVS» Calcul d'une CVS, puis dans 

un autre menu, possibilité de faire une autre 
CVS, ou de retourner au menu principal. 

F4 «corrig»C aïeul une donnée corrigée, 

puis dans un autre menu, possibilité de faire 
une autre donnée corrigée, ou de retourner au 
menu principal. 

F’5 «MORE»Pennet de voir la suite du 
menu. Si on appuie à nouveau dessus on re- 
vient au menu principal. 

Fl (après F5)«PREV»Calcul de chiffres d’af- 
faire brut, puis dans un autre menu, possibi- 
lité de faire un autre CA brut, ou de retourner 
au menu principal. 

F2 (après F5)«FIN»Pour sortir du programme. 
Quand il est possible de choisir entre un autre 
calcul de la meme nature et le retour au menu 
principal, le menu est le suivant : 

Fl «AUTRF»On refait un calcul simi- 
laire. 

F5 «FIN» On revient au menu principal. 

PROGRAM: CVS 

:CILCD 

:Outpt(3,9,»RENTAL» 

:Outpt(4,8,»PRESENTS» 

:Outpt(6,10,»CVS» 

:Pause 
:Lbl DEB 
:CILCD 

:Disp «CORRECTION DES» 

:Disp «VARIATIONS» 

:Disp «SAISONNIERES» 

:Lbl M I 

:Menu( I ,»Mgen»,MGEN,2,»Mmens», 

MME N S , 3 ,»C V S » ,C V,4 ,» C orr i g» .COR, 5, » 

MORE»,M2 

:Lbl M2 

: Me n u ( I ,»PREV»,PREV,2,»FIN»,FIN,5, 

» MO RE», Ml 
:Lbl MGEN 
:CILCD 

:Disp «@y» 

:Input Y 
(Disp Y 
: Pause 

:Disp «Eff x(n)» 

:lnput E 
: Y/E->MGE 
: CI LCD 

:DISP « @v « 

mJ 


:DISP «M gen= — — -» 

:DISP « n « 

:DISP MG E, MGE @ Frac 
: Pause 
:Goto DEB 
:Lbl MM ENS 
:CILCD 

:Disp «Nbre d’années» 

:lmput A 
: Lbl MMEN 
:CH.CD «@ par mois» 

:lnput Z 

:Z/A->MME 

:CILCD 

:Disp « @ par mois « 

:Disp «MME= -» 

:Disp « Nbre d'années» 

:Disp MME 

:Menu ( ! ,»AUTRE»,MMEN,5,»FIN»,DEB 

:Lbl CV 

tCILCD 

:Disp «M par mois» 

:Input M 

: M/MGE- >CVSS 
:Disp « M par mois» 

: Disp «CVS— » 

:Disp « M général « 

:Disp «» 

:Disp CVSS 

:Menu( I ,»AUTRE»,CV,5,»FIN»,DEB 

: Lbl COR 

:CILCD 

:Disp «donnée brute» 

:lnput AB 
:Disp «CVS» 

:input CVSS 

: AB/CVS S->DC 

■ Disp « don. brute» 

:Disp «don. corrig= » 

:Disp « CVS « 

:Disp «» 

:Disp DC 

:Menu( I ,»AUTRE»,COR,5,»FIN»,DEB 

: Lb I PREV 

:CILCD 

:Disp «CA à partir de la» 

:Disp «droite» 

Tnput CAD 
:Disp «CVS» 

: In put CVSS 

:CAD*CVSS->CAB 

:C1LCD 

:Disp «CA BRUT=CA à partir» 

:Disp «de la droite *C VS « 

: Disp «» 

:Disp CAB 

:Menu( I ,» AUTRE», PREV, 3, »FIN», DEB 
:Lbl FIN 
: Cil. CD 

:Outpt(5,lO,»FIN» 
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RUBRIQUE TI-85 

Jeu MINES 

par Jérôme FORESTIER 

MINES : Programme principal (le plus gros). V 

MINE S 2 : Sous-programme pour remplir une case. 

MKEY: Sous-programme attendant l’appui d'une touehe et retournant sa valeur 
U (j - sous-programme effaçant l’écran graphique. 

tï f * IMPORI AN F ; Avant de lancer le jeu vous 

Unc f °‘L“ ? programmes saisis, sans erreur. devez taper les instructions suivantes sous 

peine de plantage : 

0->RECM | ENTER] 

(Initialisation du record). 

« «->NOMM [ENTER] 

(Initialisation du nom). 

BON DEMINAGE!!! 


tapez MINES 

Le but du jeu est de parcourir un damier de 
18X8 cases, dans lesquels sont cachés 18 mi- 
nes, que vous ne voyez pas. Vous entrez en 

haut à gauche et devez sortir en bas à droite 
de l’écran. 

En vous dirigeant dans les 8 directions (ac- 
cessibles grâce aux touches 4 6 8 2 et 7 9 3 | 
puni les diagonales), essayez de sortir du ta- 
bleau. Le nombre de mines qui vous enfou- 
it nt est indiqué en bas de I écran, par un nom- 
bre de points correspondant aux nombres de 
mines dans les 8 cases autour de vous. A cha- 
qut lois que vous vous déplacez, la case se 
colore en noir, pour vous indiquer sur quelles 
cases vous êtes déjà passé. Vous pouvez re- 
tourner sur unc case noire. 

Si vous sautez sur une mine le jeu s’arrête, et 
les mines cachées s affichent, ainsi que votre 
score. Le scoie est calculé en (onction du nom- 
bre de cases parcouru avant la sortie. Essayez 
donc, pour un score maximal, d’ "entourer” les 
mines. Si vous battez le record vous aurez la 
chance de laire la unc des journaux... 
Explication des programmes. 

MINES : Le début du programme (LBL C) 
alliche le lecord, initialise 1 écran graphique 

place les mines dans le tableau A, "et trace le 
damier. 

Ensuite (LBL A), le programme détermine le 
nombre de mines autour de vous (variable B), 
effectue les tests de direction et de l'emplace- 
ment des mines, colorie la case. Si vous sau- 
tez sur une mine, leur emplacement est affi- 
che (LBL B) et si votre score est supérieur au 
record, vous entrez votre nom. 

INKEY : Sous-programme, qui grâce à une 

boucle WH ILE attend la frappe d’une touche 

et retourne le code de la touche (variable 
KEY). 

S . Il existe un cheat mode, à vous de le 
trouver. 

Vous pouvez créer une image représentant le 
damier, taire des petits dessins dessus, et sup- 
primer la ligne (prog MINES) : 

For{ A, 1,1 8:Line(7A, 1 ,7A,56):Line( 1 .7A 1 26 
7A:End 

pour la remplacer par l’affichage de votre 
image: RcPic IMAGE (Si vous avez sauvé 
votre image avec ce nom). 

Sachez que le jeu n’a pas de fin car à chaque 

fois que vous sortez, le jeu recommence, mais 
avec plus de mines. 


PROGRAMiClg 

:FnOff 

:CJDrw 

PROGRAM: Inkey 
:0->KEY 
:Whilc KEY=0 
:GetKy->KEY 


» 


PROG RAM; Mi Î1CS 
:0->S: 1 8->M:0->R 
:Lbl C 
Ci LCD 

:Disp «-Jérome FORESTIER-93- 
:Outpt(2,7,»M I N E S» 

:Disp «.» 


:Disp «RECORD «+NOMM.RECM 

+ 

•Cle 

:0->xMin: 1 26->xMax 
: 0 ->x S c I : -5 ->y M i n : 5 7 -> y M ax : 0->y S c 1 

:For(A, 1 , 18:Line(7A, 1 ,7A,56:Line( i ,7 A 1 26 

7 A: END 

+ 

+ 

:0->A 

:(!8.8->dim A 

:For(B,l ,M 
tint ( 1 8rand+ 1 ->X 
tint (8rand+l->Y 

:lf getKy=34:PtOn(7X-3,7Y-3 

:Outpt(2, 1 ,B 
: I ->A(X.Y 
:End 

: 1 ->X:8->Y:0->A( 1 ,8:0->A( 1 8, 1 :()->A( 1 ,7:0- 
>A(2,7:0->A(2,8 

:Mines2 
: 18->X:1->Y 
:Mincs2 
: 1->X:8->Y 
:Line(4,-4, 18,-4 

:Lbl A 
:DispG 


:0->B 

:If X< 1 8 and Y<8:B+(A(X+1,Y+1)==1 ->b 
I f Y<8:B+(A(X,Y+l)==l->B 
:lf X>1 and Y<8:B+(A(X- 1 ,Y+1 >— l->B 
If X>I:B+(A(X-1,Y)=1->B 

dfX>i and Y>1:B+(A(X-1,Y-1)==1->B 
:If Y>1;B+(A(X,Y-1)==1->B 

:If X< 1 8 and Y>1 :B+(A(X+1,Y-1 )==] ->B 

:If X<18:B+(A(X+1,Y)=1->B 

:For(C, 1 ,B;PtOn(2+2C,-3:End 
:For(C,B+l,8:PtOff(2+2C,-3:End 

: PtOf f( ( 7 X- 3 , 7 Y- 3 
:Inkev 

:PtOn(7X-3,7Y-3 

:KEY>K 

:If K=-0:Goto A 

:X-(K==82->X 

:X+(K==84->X 

:Y+(K==73->Y 

:Y-(K==93->Y 

: Y +( K==72-> Y:X-(K==72->X 

:Y+(K==74->Y:X+(K==74->X 

:Y-(K==94->Y:X+(K==94->X 

:Y-(K==92->Y:X-(K==92->x 

:If X>18: 18->X 

:If X< ! : 1 ->X 

:If Y>8:8->Y 

:If Y<1 :1->Y 

:S+(A(X,Y)-=0->S 

: lf X == 1 8 and Y== 1 Then : R + 1 ->R :25+S (R> I - 
>S:Goto B: End 

:if l==A(X,Y:Then:Circl(7X-3,7Y-3,6 

:0->R:Goto B: End 
:2->A(X,Y 
: Mi nés 2 
:Goto A 

F 

+ 

: Lbl B 
:For(X, 1,18 
:For(Y, 1 ,8 

:If 1 =A(X,' Y:PtOn(7X-3,7Y-3 
: End :End:0->A: Pause 
:dLCD 

:Disp R,»Ton score: «,S:Pause 

.[( R>= 1 ;Then:M+4(R>] ->M:Goto C:F,nd 
:fi S>=RECM: Then: Disp 
«NOUVEAU RECORD!», S :S->RECM: 
InpSt«TON NOM»,NOMM:End 
:Disp «RECORDS :»+NOMM,RECM 
PROGRAM :Mines2 
:For(ZZZ,7(X - 1 ),(7X)-2 

:Line(ZZZ+ 1 J Y- 1 ,ZZZ+ 1 ,7( Y- i )+ 1 
:End 
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PROGRAMME SCROL (par Noël BONNET) 


Ce programme permet défaire défiler un texte . Il suffit de changer le texte entre (« «) à la 6 ligne. Ce n 'est 
pas un programme à part entière, il est plutôt fait pour être incorporé dans d'autres programmes. 


:CILCD 

:<)->A 

:1->D 

:20->F 

:Lbl DE B 

:Voici un exemple de texte déroulant, vous 
pouvez mettre à cet endroit, ce que vous vou- 
lez !! «~>TE 

:lngth TE->L 


Lbl DED 

sub(TE,D,F->SCOS 
Outpl(8,l,SCOS 
D+ 1 >D 
L-D >R 
:if R>20 
:Then 
:Golo DED 
:Else 


:R+1->F 

:sub{TE,D,F->SCOS 
:Outpt(8,l,SCOS 
: End 
:Lbl FIN 
:CILCD 

:Outpt(3,9,»MADE» 

:Outpt(4,10,»BY» 

:Outpt’(5,8,»RENTAL» 


PROGRAMME RESET (par Noël BONNET) 

Ce programme ne sert pas à effacer tous les programmes que vous avez tapés. Au contraire , c'est un moyen 
de faire croire à une personne ne connaissant pas ta machine , qu 'en l'éxécutant , vous venez d’effacer tout ce 
que vous avez enregistré. Cela peut être utile pour certaines interros 


Fonctionnement du programme 
Tout d’abord, pour taire «plus vrai», 
quand vous aurez à vous servir du pro- 
gramme, évitez de passer par le menu 
des programmes «PRGM», il est préfé- 
rable d’écrire en toutes lettres 
«RESET» 

Ensuite il suffit de suivre les indications. 
Ee plus important est de bien savoir 
jouer le comédien!!! 


PROGRAMMES ET 

:0->C 

:CILCD 

: O u tpt(4, 8 , » R ES ET » 

:Menu( l ,»ALL»,AL,5,»PRGM»,AM 

: Lbl AM 

: 1 ->C 

:Lbl AL 

:CILCD 

:Disp «Arc You Sure ?» 

:Menu( 1 ,»YES»,OUI,5,»NO»,NON 


.... HUM HUM 

:Lbl NON 
:CILCD 
:Goto FIN 
: Lbl OUI 
:CILCD 
:If C==l 
:Then 

:Disp «A LL PRGM RESET» 
:Else 

;Disp «ALL MEMORY RESET» 
: End 

:Goto FIN 
:Lbl FIN 


PUISSANCE 4 (par Jérôme FORESTIER) 

But du jeu : 

Il suffît d'essayer d'aligner 4 croix (x ou + suivant le joueur). Le premier joueur qui y arrive a gagné. 


Appuyez sur le numéro de la colonne dans 
laquelle vous voulez jouer ( 1 à 7). Vous jouez 
à deux, l’un contre l’autre, le programme 
s’arrêtant seulement quand il n’y a plus de 
place pour jouer. Appuyez sur [2nd] pour 
recommencer une autre partie. 

PUISSANCE 4 utilise 521 octets de pro- 
grammes. 124 octets de réel. 156 octets de 
vecteurs. 

Le jeu se compose de trois sous-program- 
mes et d’un programme principal. 

P4 Programme principal. 

CLG Sous- programme effaçant l’écran 

graphique 

INKEY Sous-programme attendant la 
frappe d’une touche et retournant sa valeur. 
BITMAP Sous-programine utilisant le 
Range. 


PROGRAM:Clg 
: Fn OIT 
:C1 Drw 

PROGRAMdnkey 
:0->KEY 
:While KEY--0 
:GctKy->KEY 
:End 

PROGRAM:P4 
:Lbl /:/:/. 

:Clg:ClLCD 
:Bitmap 
: i ->J 
:0->A 

:For(A,0,7:Line(28+ 1 OA, 1 ,28+ 1 OA, 6 1 :Line 

(28,l + IOA.98,l + IOA:End 

:7->dim A 

:Lbl Adnkey 

:KFY->K 

; IF K=21:Coto ZZZ 


:(K==92)+2(K==93)+3(K==94)44(K=82)+5 

(K==83)+6(K==84)+7( K==72->C 

: I f C>7 or C< 1 

:Goto A 

:If 5<A(C 

:Goto A 

:28+ 1 0C->X: 1 + 1 0A{C->Y 

:If J=1 

:Then 

:Line(X- 1 0,Y,X,Y+ 1 0:Line(X- 1 0,Y+ i 0,X,Y 
:Elsc 

:Line(X-5,Y,X-5,Y+10:Line(X,Y+5,X-10,Y+5 

:End 

:-J->J 

:1+A(C->A(C 
:Goto A 

PROGRAM: bitmap 
: 1 ->xMin: 1 27->xMax:0->xScl 
: 1 ->yMin:63->yMax:0->yScl 
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MISE AU POINT POUR PB1000 

par V. LUGNIER 

\oici un programme qui se propose de calculer le couple diaphragmme/mise au point idéal 
pour avoir une zone de profondeur de champs comprise entre 2 intervalles . Cela permet 
qu un sujet ayant une certaine profondeur de champs soit entièrement net , tout en ayant la 
plus grande ouverture de diaphragme et un fond le plus flou possible. 



10 CLS 

20 E I =0 : PM=0 : DA=0 : D 1 -0 : DB =0 ; DX-0 : D Y =0: 
DT=0:R2=SQR(2) 

30 INPUT «FOCALE (mm)»;F:F=F/l 000 
40 INPUT «DEBUT NETTETE (m)»;Dl 
50 INPUT «FIN NETTETE (m)»;D2 
60 E=0, 00003 :MI =1 00000 

70 F1=F*F:W=E*F*D2:Z=D2*E:K=D2-D1 

80 DG=(F1 *(D2-Dl))/(E*(2*D2*D1+F*(-D 1 - 
D2))):DU=LOG D/(R2):DM=DU+1 :P2=2*(D1 *D2)/ 
(D1+D2) 

90 FOR I=INT(DU)-1 TO INT(DM) STEP 1 
100 D=R2 A I 
110 H=F1/(D*E) 

130 A=2*H+K:B=-(2*H*F+2*K*F):C=K*(F 1 - 

H* H) 

1 40 DE=B *B-4*A *C:P 1 =(-B+SQR(DE))/(2*A) 

150 P3=P1-F:H1=H*P1 

160 D A=H 1 /(H+P3) : DB=H 1 /( H-P3 ) 

170 E1=ABS(DB-D2) 

180 IF E 1 <M 1 THEN GOTO 240 
190 N EXT I 

200 PRINT«D : » ; ROUN D(DX ,-2) ;» P( m ) : » ; 
ROUND(PM,-3) 

210 PRINT «ZONE NETTE (m):»;ROUND(DT,- 
3 );» — »>;ROUND(DY,-3):BEEPI 
220 PRINT «DIAPH. THEO. «;ROUND(DG,- 
5);»M.A.P. THEO. «;ROUND((R-3) 

230 END 

240 M 1 =E 1 :DX=D : PM=P 1 : DT =D A : D Y =DB : 
GOTO 170 

Explications 

Le programme demande la focale (à donner en mm) 
puis la distance en mètres entre l’appareil photo et 
le lr point qui doit être nette («Début netteté»), puis 
la distance en mètres séparant l’appareil photo du 
dernier point qui doit être nette. 

Le programme calcule puis émet un bip sonore pour 
prévenir de la fin du calcul (qui peut durer + ou - 
longtemps) et affiche la zone de netteté réelle ap- 
prochant au mieux la zone souhaitée (les distances 


données sont celles séparant l’appareil photo du pre- 
mier plan net et du dernier. 

Auparavant le programme donne le diaphragme à 
utiliser (D:) et la mise au point à régler en mètres 
((P(m)) sur l’objectif. 

Enfin il existe un couple diaphragme/mise au point 
théorique idéal correspondant exactement à la zone 
souhaitée donnée par « DIAPH. THEO. « et « 
M.A.P. THEO. «, mais la théorie n’est presque ja- 
mais praticable du fait que l’on ne peut régler le 
diaphragme que par valeurs entières. 

Si l’on a la chance de pouvoir régler un diaphragme 
par demi valeur, voire par tiers de valeur, il suffit, 
en ligne 90 de changer le STEPÏ en STEP0,5 (demi 
valeur) ou en STEP1/3 (tiers de valeur), ainsi on 
aura un couple diaphragme/mise au point plus pro- 
che de l’idéal. 

Ce programme convient pour les 24X36 en vue d’un 
agrandissement de 10 fois. Cela vient du cercle de 
confusion en 60 où E=0, 00003. Pour un format 
moyen la valeur de E=0, 000045 conviendra. Si l’on 
souhaite des agrandissements plus grands il faut 
utiliser E=0, 000025 au moins. Notons que la valeur 
E-0, 00003333 est celle utilisée par les fabricants. 

Ce programme aurait pu être plus compact, mais 
moins rapide en remplaçant dans les équations com- 
prises entre les lignes 90 et 180 les variables par 
leurs valeurs et ainsi supprimer la ligne 70, de même 
en 140 on aurait pu remplacer B*B par B A 2, mais 
les élévations au carré sont plus lentes que la multi- 
plication du chiffre par lui-même. 

Pardonnez-moi l’inélégance de ce programme, mais 
au moins il marche. Je suis ouvert à toutes sugges- 
tions ou critiques. 
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INITIATION A L'ASSEMBLEUR 8086 (pour débutant) 

par Thierry BODIN 

Pourquoi programmer en Assembleur (ASM) alors que des langages dit de haut-niveaux existent 
(C, Pascal... ) ? Pour plusieurs raisons : ce langage est le plus proche de la machine et a accès à toutes 
les fonctions de V ordinateur. Il est pratiquement indispensable de recourir à P assembleur lorsque une rou- 
tine doit être effectué le plus rapidement possible ( calcul , affichage, tri , 

...). Bien sûr, les langages évolués sont eux-aussi rapides mais la plupart permettent d y inclure de l assem- 
bleur pour accélérer les routines. De plus , V ASM fournit un code compilé compacte. Par exemple le C créera 
un fichier d'une dizaine de kilo-octets pour afficher une simple phrase alors qu'en assembleur ; la routine 
d'affichage prendra moins de 10 octets. 


[INCONVENIENTS] 

Quant aux inconvénients, les voici: 

- Il faut plusieurs instructions pour obtenir quelque chose de 
correct d’où une approche et un apprentissage assez difficile . 
L’affiche d’un message en C s'écrit: 

PRINTF(«Je lis Poche Computers.»); 
ou en Basic: 

PR INT «Je lis Poche Computers.» 
en assembleur, il faudra écrire: 

MOV AH.9 

MOV DX, OFFSET phrase 
INT 2 1 h 

phrase DB de lis Poche Computers.S’ 

(Nous expliquerons cet exemple plus loin) 

- Il n'existe aucune routine qui permettent la manipulation des 
chaînes, la conversion d’un nombre décimal en hexadécimal et 
vice- versa, etc... Il faudra donc tout refaire, réinventer la roue 
en quelque sorte. (Voilà, j’ai perdu la moitié de mes lecteurs en 
écrivant cela !) 

Il faut aussi signaler que ce iangage comprend un jeu d'instruc- 
tions réduit (un peu plus d’une centaine) dont certaines ont les 
mêmes fonctions. 

Avant de se lancer dans l’apprentissage de F ASM, une connais- 
sance rudimentaire de la machine est nécessaire. Nous allons 
donc expliquer ce qu'est le binaire, F hexadécimal, la mémoire, 
comment elle est structurée, les registres et les interruptions. Si 
vous avez un problème ou une question à poser, vous pouvez 
me contacter sur te 3615 RTELen tapant *ECR puis SCARFY. 
N'oubliez pas de créer votre Boîte Aux Lettres (*BAL) en certi- 
fiant votre pseudonyme pour que je puisse vous répondre. A 
défaut, écrivez au journal qui transmettra. 

[LE BINAIRE] 

L'ordinateur comprend 2 états: 0 ou 1 l’équivalent électrique de 
éteint/allumé soit FAUX ou VRAI. On appelle cet état BIT qui 
regroupé par 8 donne un OCTET (ou B YTE), par 16 donne un 
MOT (ou WORD) ou par 32 donne un DOUBLE MOT 
(ouDOUBLE WORD) (Cf. Tableau AI). 

[TABLEAU Al - Nombres représentables | 

+ + 

! Nbr BIT ! NOM 


+ 


Valeur stockable 
— + 


I 

8 

16 

32 


BIT I Oou 1 ! 

OCTET 1 0 à 255 1 

1 ou -128 a +127 ! 

MOT I 0 à 65535 1 

! ou -32768 à +32767 I 
DOUBLE MOT! 0 à 4294967295 
! ou -2147483648 à ! 
1+2147483647 ! 


+ 


Sur un OCTET, on peut stocker un nombre entre 0 et 255 soit 
256 valeurs. 

Parfait pour les nombres entiers mais pour les nombres négatifs, 
il faut trouver un moyen pour définir le signe. Vu qu'il n'y a que 
2 signes possibles PLUS ou MOINS, ils peuvent être représen- 
tés sur un bit. Dans un ensemble de bits, c'est celui placé le plus 
à gauche qui sera le bit de signe. S'il est égal à 1 alors le nombre 
est négatif sinon il est positif. 

Les 8 bits d’un octet sont numérotés comme ceci: 

+ + 


I 


j. ......... Octet — \ 


1 


I X X X X X X X X 

! Bit n° 7 6 5 4 3 2 10 
+ 


Les premiers bits (0,1,..) sont appelés bits de poids faible et les 
derniers bits sont appelés bits de poids fort. Us sont numérotés 
par ordre de puissance sachant que plus le bit est à gauche plus 
!a puissance de 2 est grande. 

Pixemple: pour obtenir 16, ii faudra calculer 2 A 4, 

pour 44 - 2 A 5 + 2 A 3 + 2 A 2 
IL’ HEXADECIMAL] 

La notation la plus fréquemment utilisée est F hexadécimale ou 
base 16. Un chiffre hexadécimal comprend 16 éléments: les chif- 
fres de 0 à 9 et pour les 6 éléments manquant, on a décidé de 
prendre les 6 premières lettres de l’alphabet soit A B C D E et F. 
Le A sera égal à 10, le B=1 1, le F=15 (cf. Tableau A2). 
[TABLEAU A2 - Equivalence entre base 10, 2 et 16] 

+ D D + 

! Décimal ! Binaire ! Hexadécimal ! 


0 

0 ! 0 

\ 

\ 

1 

1 ! 1 

i 

\ 

2 

H) ! 2 

I 

i 

3 

11 ! 3 

i 

t 

4 

1 00 ! 4 

! 

H) 

! 1010! 

A ! 

15 

! 1 1 1 1 ! 

F ! 

16 

'S 

O 

O 

10 î 

60 

: iiiioo! 

3C ! 

1 05 

! n oiooi : 

69 ! 

255 

! 1111 11 11 ! 

FF ! 


et 


n 


[LA MEMOIRE] 

Il existe 2 types de mémoire: La RAM (Random Access Memory) 
et la ROM (Read Only Memory). Celte dernière ne peut être 
que lûe. C'est dans la ROM qu'est stocké, par exemple, le BIOS 
qui permet le démarrage de la machine. L'accès en lecture/écri- 
lure est possible en RAM. 

La mémoire est composée de cellules numérotées de 8 bits soit 
I octet. Chaque numéro de cellule est appelié ADRESSE. La 
mémoire est divisible par zones de 65536 octets maximum ap- 
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INITIATION A L'ASSEMBLEUR 8086 (pour débutant) 

I n I 1 J in 1 1, ■ / ^ -V . m -i- . . _ _ " i I V A . t ' . . . 


pelées SEGMENTS et pour accéder à une cellule, il nous faudra 
donc 2 éléments: le numéro de SEGMENT et le déplacement 
(OFFSET) soit SEGMENT: OPES ET. Pourquoi une telle com- 
position ? Tout simplement parce que le processeur INTEL 8088 
Jonclionne en 16 hits et sur ces bits, nous ne pouvons mettre que 

65535 en nombre maximal, c’est à dire que nous pouvons lire 

65536 octets (on compte a partir de 0) ou 64 Ko ( I Kilo-Octets 
- 1024 octets soit 04- 1024= 65536). Sur les PC équipés de 640 
Ko ou le Portfolio qui en a 128 Ko, il a fallu trouver un système 
pour accéder à cette mémoire supplémentaire. On a alors décidé 
que dans le segment, on mettrait un nombre qui, multiplié par 
16, donnerait l'adresse absolue d'un emplacement mémoire. Par 
exemple si on veut accédera l'octet n° 65537. on mettra dans le 
segment 65537/16 soit 4096 (lOOOh) et dans l'offset on mettra 
le reste soit 1. Donc on obtiendra lOOOEOOOlh. Si on ajoute 16 
a I offset et que 1 on soustrait 16/16 soit 1 au segment, on ob- 
tiendra 4095:17 soit 0FFFh;00llh cl ON POINTERA TOU- 
JOURS SUR LE MEME OCTET ! (4095*16+17= 65537). Dans 
cette adresse, on pounu lue et/ou modifier son contenu (Con- 
sultez le tableau A3 sur la structure de la mémoire). 

1 TABLEAU A3 - STRUCTURE DE LA MEMOIRE) 

+ -; — + 

! Segment Contenu ! 

Vecteurs d’interruptions ! 

Paramètres du BIOS ! 

1 in de la mémoire système! 1 24 K >! 

Zone pour les ! 

extensions mémoire 1 


0400 h 
3F00h 


9E00h 


'à 512 Ko 


Inutilisé 


BOOOh 

BlOOh 


Mémoire vidéo MD A de 4 Ko 
du Portfolio ; 

Copie de la mémoire vidéo ! 
COOOh (Non utilisé) ! 

Mémoire Système ROM B ( I28Ko) 
EOUOh ' ; 

Mémoire Système ROM A 1 128 Ko) 
FFFHh ! 


+ ■ 


H- 


(LES REGISTRES] 

Les iegisti.es sont des variables matérielles: le processeur y charge 
des données provenant de la mémoire, les traite à l’aide des 
instructions machine puis les renvoie en mémoire, ils peuvent 
seivî! poui calculer, manipuler des chaînes ... Le processeur 
a 14 registres de 16 bits répartis en 4 groupes (voir tableau 


Registres de travail: 

Ces 4 registres de 16 hits peuvent être décomposes en 2 
registres de 8 bits. Par exemple si dans AX nous avons A ! 3 Eh 

(Le h indique une notation hexadécimale), AH est égal à A Ih et 
AL est égal à 3Lh. 

Si vous mettiez 0 dans AH, AX serait alors égal à 003Lh. 

Le H de AH signifie HIGH (FORT) et le I.de AL signifie I .OW 

(FAIBLE) C'est à dire octet de POIDS I OR I et octet de POIDS 
FAIBLE. 

Ces registres permettront le calcul et le stockage de résultats 


intei médiaires. Ce sont aussi les seuls à être divisibles en 2 re- 
gistres de 8 bits. 

Registres de segment: 

Ils spécifient les segments utilisés, CS contient le numéro 
de segment où est situé le code compilé. DS et ES sont égal aux 

segments des données et SS contient le numéro de segment 
pour la pile. 

Qu'est-ce que la pile '? C'est un tampon situé en mémoire 
où sont sauvés l'adresse de retour d'un programme lors d'un 
appel a un sous-programme, les paramètres transmis à une pro- 
cédure (les langages évolués s'en servent 
Registres d'offset: 

Rcîics avec les registres de segment, ces registres repré- 
sentent des pointeurs. Par exemple, CS:1P pointe sur l’adresse 
de ! instruction en cours. 

Registre fias; 

t e registre reflète le résultat d opérations, averti en cas 
d eiieui... Sut les 16 bits que comporte ce registre, seulement 9 
sont utilisés. Voir leur définition en tableau A5. 

I TA B L E A U A4 - L ES REGI STR ES | 

- -+ 



+ — 


REGISTRES DE TRAVAIL 
D D 


I Nom ! Composé de 1 Fonction 

Â +- +— ■ 

! AX [ AH et AL 1 Accumulateur 
1 BX ! BH et BL 1 Base 1 

1 Compteur 1 
et DL i Données 1 
— n 


.i™. 

- Â 


/ t 


U- 


REGISTRES DE SEGMENT 

-D — 


! Nom 1 Fonction | 

A + 

! DS I Seg. de données (DATA SEG) 
1 ES ! Extra segment I 

: CS I Seg. de code (CODE SEG) ! 

! SS 1 Seg. de pile (STAC K SEG) 1 

! H 


t 


\ 


I REGISTRES D'OFFSET 

: D— 

1 Nom ! Fonction ! 

A + 


■A 


SI 1 Source index 
DI ! Destination index 
IP ! Pointeur d'instruction 
SP 1 Pointeur de pile 
BR ! Pointeur de base 
rt 


REGISTRE LL AG 


. . . . O D I T S Z . A . P . C 
15 1119 8 7 6 4 2 0 ! 

10 1 


+ 


+ 


1 FABULAI A5 - Détails sur le registre FLAG] 

+ D d 


! Bit ! 

A + 

I O ! CF (C arry flag) 
résultat 1 


Défi nîtion 


+ 


- À 

Mis à 1 en cas d’erreur/rcfîète le 
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2 

4 

6 


■ d'un opération mathématique ou logique I 
PF (Parity flag) ! 1 si le résultat d'une opération est paire 


AF (Auxilliary flag) ! Retenue auxiliaire ! 

7F (Zéro flag) 1 1 si le résultat d'une opération est nul 


7 ! SH (Sign flag) ! I si nombre négatif 1 

8 I TF (Trap flag) I 1 si mode pas à pas ! 

! I (utilisé par les debuggeur) I 

9 1 IF (lnterrupt flag) I I si appel des interruptions autorisé 1 

10 ! DF (Direction flag) I Si 1 DI et SI sont décrémentés 


1 S 


1 Si 0 Di et SI sont incrémentés ! 

I (après instruction de traitement de données)! 
OF (Overflow flag) ! Si 1 : division par 0 ou résultat d'une 


! multiplication ou d’une division ne tenant 
pas sur un nombre de bits précis (déborde- 
ment ou Overflow). Aussi activé quand le 
! résultat de 2 nombres positifs additionés 
! est négatif ! 

i— ■■ 

n + 


n 


H 

[LES INTERRUPTIONS] 

Qu’est-ce qu'une interruption ? C'est un ou plusieurs sous- 
programmes fournis par le DOS ou le BIOS. Parmi les 256 
interruptions existantes, nous pouvons distinguer 2 catégories: 
les interruptions matérielles et les interruptions logiciels. 

Les interruptions logicielles sont appelées par un programme 
pour utiliser toutes les f onctions qu'elles contiennent. Nous pou- 
vons citer la numéro S 6 ( lOh) qui s’occupe du vidéo. C'est elle 
qui affichera les phrases, les couleurs, qui passera en différents 
modes (graphiques ou textes), il y a aussi la numéro 33 (21 h) 
qui est la plus utilisée vu le nombre important de fonctions qu’elle 
propose. Eile permet d'ouvrir un fichier, de lire ou écrire de- 
dans, ... Pour utiliser une des fonctions d’une interruption, on 
lui envoie un ou plusieurs paramètres par l'intermédiaire des 
registres. 

Les interruptions matérielles sont appelées par la machine (l'in- 
terruption 8 (timer ou horloge) appelée 128 fois ou 1 fois par 
seconde selon la configuration choisie (18.2 fois par seconde 
sur un PC), I interruption 9 qui gère le clavier et qui est appelée 
dès qu’une touche est tapée,... 

[ VOTRE PREMIER PROGRAMME] 

Voici maintenant un programme simple que nous expliquerons 
plus en détails dans les lignes qui suivent. Vous pouvez l’écrire 
sous DEBUG mais nous vous conseillons fortement l’achat d'un 
compilateur te! que Turbo Assembler de Borland ou bien 
Microsoft Assembler. Pour compiler, tapez ce texte avec un édi- 
teur puis, si vous avez TASM, exécutez sous DOS: TASM 
nomdufichier.ASM /M4 puis TI JNK nomdtifichier.obj /T. Vous 
aurez alors un fichier .COM. 

Les apostrophes délimitent la phrase et lorsqu'ils sont répétés 2 
fois, ils indiquent au compilateur que l’on veut en afficher un. 
ODh signifie que le curseur revient à gauche de l’écran, le OAh 
le fait descendre d'une ligne et le $ prévient ! interruption 2 ! h 
que le message se termine ici. Le caractère ASCII 7 émettra un 
bip lors de l’exécution. 


CODE Segment 


;Nom du segment 


Assume cs:CODE (Préviens le compilateur que CODE 
contient les 

(instructions 

Org iOOh (Les programmes .COM commencent à 
l’offset IOOh 
LIGNE equ OBh 
COLONNE equ 20 
Début: 

mov ax,0003 ;passage en mode texte 
inl I Oh ;(80 colonnes, 25 lignes) 

((Fonction 0, Sous Fonction 3/int lOh) 
ah, 2 ;Fct 2 /int I Oh: Positionne le curseur à 


mov 

l’écran 

mov 

mov 

mov 

int 

mov 

mov 


mov 
inl 
mov 
int 

Message db 
!’,0Dh,0Ah,’$’ 
CODE Ends 
End Début 


bh,0 (Page 0 
dh, LIGNE ;N° de ligne 
dl, COLONNE ;N° de colonne 
1 Oh 

ah ,9 ;Fct 9/int 21 h 
dx, offset Message 
3 ! h (Affiche un message 
ax,0 ;Fct 0/int 16h 
!6h (Attend une touche 
ax,4C00h ;Fct 4Ch/int 21 h Code d'erreur ()=OK 
21 h (Retour au DOS 

'Bienvenue dans le'. 7,' monde de I" Assembleur 


(Fin de segment 
(Fin du programme 
Nous vous conseillons de lire «ASSEMBLEUR facile» de Ph. 
Mercier édité par Marabout, ainsi que différents ouvrages décri- 
vant la liste et les fonctions des interruptions (disponibles chez 
Sybex et Microsoft Press) et consulter les documents disponi- 
bles dans le domaine public tel que HELP PC ou bien 
INTERRUPTS LIST. 

Expliquons maintenant l'exemple: 

[EN-TETE] 

Au début d'un programme assembleur, on doit donner un nom à 
chaque segment utilisé pour que le compilateur (et vous-même) 
s’y retrouve. Un programme d’extension .COM ne peut utiliser 
qu’UN SEUL SEGMENT d'où la nécessité de mettre le code et 
les données ensemble alors qu'un programme EXE est composé 
de plusieurs segments dont un réservé à la pile. Bien sûr, chaque 
segment ne fait pas 64k: i! peut être de quelques octets (16) 
jusqu'à la limite des 64k, la taille d'un segment étant un multi- 
ple de 1 6. 

Dans notre exemple le segment CODE contiendra le code-source 
compilé donc nous le précisons avec la DIRECTIVE D’ASSEM- 
BLAGE ASSUME. Les fichiers COM doivent être exécutés à 
l'offset 256 (IOOh) d'un segment. Les informations contenues 
dans les 256 premiers octets étant utilisées par le DOS. Pour 
préciser alors au compilateur qu'il devra nous créer un fichier 
COM. on lui ajoute la directive ORG IOOh (Origine). 

! I .ES I DE N TI FICATEU RS | 

Les identificateurs sont des noms définis par le programmeur et 
qui servent à indenlifier une variable ou un label. Le premier 
caractère doit être une lettre et l'ensemble ne doit pas dépasser 
80 caractères. Il ne faut pas non plus mettre d’expression ma- 
thématique du style 10-10: ou TO+TO:. 

Toujours dans notre exemple, DEBUT suivi de END DEBUT 
en fin de programme sont des LABELS qui indiquent au compi- 
lateur où se situe LE POINT D’ENTREE du programme soit 
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esse de la première instruction exécutée. Pour un fichier 
COM, cette adresse est toujours fixe. 

[LES CONSTANTES] 

Les constantes sont des valeurs qui une fois définies par le pro- 
grammeur ne peuvent être modifiées pendant l'exécution du pro- 
gramme. Pour les déclarer, on utilisera la pseudo- instruction 
EQU. (voir Tableau Bl) 

[TABLEAU Bl] 

~ “ ■ -"j- 

Trois EQU 10/5+1 ! 

Cinq EQU Trois-*- 2 ! 

EQU Trois+Cinq ! 


EQU 1 ! 

EQU 0 : 

A 

— A 


Vrai 


\ - 

Il n'y a pas de différence 
entre les caractères ! 
minuscules et majuscules 


[LES CONSTANTES IMMEDIATES! 

Ce sont des valeurs numériques exprimées sous différentes ba- 
ses et définies pas le programmeur (par défaut: base décimale) 
et elles peuvent être aussi des caractères à condition d'être entre 
apostrophes. (Voir tableau B2). Attention: Toute valeur hexadé- 
cimale commençant par une lettre doit être précédée d’un 0 pour 
éviter la confusion avec un identificateur. 

[TABLEAU B2] 


Valeur 


Exprimée en ! De base 

— + h — 


0100101 Ib! Binaire 
3123 ! Décimal 


10 


0EA3h ! Hexadécimal ! 16 ! 

Valeur ! Type ! 

’E' 1 Caractère 1 

XYZD’ ! Chaîne de caractères 1 
VARIABLES] 

Les variables sont des cellules de la mémoire où l'on pourra lire 
ou écrire à volonté. Pour les déclarer, il suffit de leur donner un 
nom puis, selon la nature de la variable, vous ajoutez l DB' 
(Define Byte) pour les variables contenant un ou plusieurs élé- 
ments tenant sur I octet, ‘DW’ (Define Word) pour les variables 
tenant sur 1 mot ( 16 bits - les 8 bits de poids faible sont stockés 
en mémoire avant les 8 bits de poids fort) ou DD' (Define Dou- 
ble word) pour les variables 32 bits (Double Mot). DD sert es- 
sentiellement à stocker des adresses (Segment:Offset). Le mot 
de poids faible, comme pour DW, est stocké avant le mot de 
poids tort. Si la valeur à déclarer n'est pas fixée, mettez un point 
d'interrogation. DUP permet de DUPliquer les éléments entre 
parenthèses. (Voir tableau B3) 

[TABLEAU B3| 

Types de déclarations: ! 

i 
I 

Initialisation; ! 

Nomvar db 0 ! 

Nomvar2 dw 0 ! 

Nomvar 3 dd 0 ! 


i i^c^iaration non initialisée: ! 

! Nomvar db ! 

1 Nomvar2 dw ? ! 

! Nomvar3 dd ? ! 

I Plusieurs éléments: ! 

i Nomvar db S ,4.6 ! 

! Nomvar2 dw 55626,10,4532 ! 

! Nomvar 3 dd 642567,5, 0A23E5FC 1 h 

[ Tableau non initialisé de 15 éléments: ! 

I Nomvar db 15 dup (?) ! 

15 dup (?) ! 

15 dup (?) ! 


8 dup ( ! ,3,5) 


F’ 


! Nomvar 2 dw 
! Nomvar 3 dd 
! Table: 

1 Nomvar db 
ï Caractère: 

! Nomvar db 
! Chaîne: [ 

! Nomvar db 'Réponse Micro’ I 
[MODES D’ADRESSAGE] 

Nous allons voir ici comment manipuler les données situées en 
mémoire en utilisant l’instruction MOV. Bien-sûr, i! existe 
d’autres 

instructions pour manipuler les données mais MOV est l’ins- 
truction la plus utilisée dans un programme assembleur. Avant 
d’aller plus loin dans l'explication de notre exemple, arrêtons- 
nous un peu pour bien comprendre les différents modes d'adres- 
sages: 

Dans notre premier listing, vous pouvez lire MOV AX.0003 qui 
peut se résumer à MOV AX.3. C'est ce qu’on appelle P ADRES- 
SAGE IMMEDIAT: 

L instruction MOV va ranger 3 dans le registre AX (AFM) et 
A 1=3). 

REGISTRE <- VALEUR IMMEDIATE 
Quant à L ADRESSAGE DIRECT, il consiste à lire une valeur 
située dans une variable. Par exemple, nous avons une variable 
de nom EPI de type MOT située dans le même segment que le 
code machine. Pour la lire, il faudra préciser le segment où elle 
se trouve ainsi que son nom (voir tableau B4). 

REGISTRE <- MEMOIRE 


EP 1 


[TABLEAU B4 


A- 


dw 

3A2Bh ! 

■i 

MOV 

i 

AX,CS:[EP1 j 

MOV 

AX.CS 1 

MOV 

DS,AX : 

1 

MOV 

! 

AX.1EP1] ! 

ivaut à: 

1 

1 

MOV 

b 

AX,DS:[EP1 [ 

i 

MOV 

I 

AX.EP1 : 


,1"!. 

■A 


Pour simplifier l’accès à ces données, il a été décidé que DS 
serait le SEGMENT DE DONNEES à condition qu'il pointe sur 
le bon segment. L'erreur à ne pas commettre est de vouloir adres- 
ser un registre n'étant pas du même type que la variable. MOV 
CL.DS:[LP1 [ est incorrect car CL est un registre 8 bits alors que 
la variable EPI est déclarée 16 bits d’où erreur annoncée par 
1 assembleur. L’ADRESSAGE BASÉ permet de lire une don- 
née par P intermédiaire du registre BX qui représente l’OFFSET 
de la donnée (voir tableau B5). REGISTRE <- C’S:[BX] ou 
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OS: | BX | (adressage basé sur CS ou DS) 
Le mode d'adressage REGISTRE <- SS: 
sur SS) est identique au précédent. 


(adressage basé 



MOV BX,128 
MOV CX,[BX] 


MOV CL,[ BX | 

Peul aussi s’utiliser comme ceci: 
EPI DB 14 
EP2 DW 1210 


MOV BX,OEKSET EPI ; OFFSET demande à Fassem- 

MOV ALJBX] ; bleu r de mettre l’adresse I 
MOV BX, OFFSET EP2 : de EPI dans BX I 

MOV DX,[EP2] I 

S'utilise aussi sous celle l'orme: I 

MOV BX. OFFSET EP2 I 

MOV BX,[BX| ; BX prendra la valeur I 

; contenue dans DS:BX I 

Pour chaque ligne d'un commentaire, il faut mettre un I 
point-virgule. | 

L'ADRESSAGE INDEXÉ 

Cet adressage facilite la manipulation des chaînes de caractères 
ou la 

localisation d'un élément dans un tableau. DS est la base utili- 
sée mais 

ES peut être utilisé lors des traitements des chaînes de caraetè- 


(voir tableau B 6 ) . 

REGISTRE < OS: | S ï j ou DS : 1 01 J (adressage basé sur DS ou 
bien ES) 

1 TABLEAU B6] 

MOV SI, OFFSET EP2 I 

MOV DI,OFFSET EP! I 

MOV AX,|Sl| ; AX prendra la valeur î 

; d ' EP2 soit 1210 (4BAh) I 
MOV [DI], AL ; EPI sera égal à B Ah ! 

és vite, on s'apercevra de la limite de ces adressages. On con- 
naissait déjà l’adressage via les registres ou via une adresse mais 
if n'était pas encore assez pratique. Nous allons alors utiliser un 
autre type d’adressage qui permettra de traiter des données en se 
positionnant dessus grâce à plusieurs registres qui . additionnés, 
donneront alors l’adresse de l'information. C’est le cas de 
î ADRESSAGE INDEXÉ El BASÉ. En voici le principe: (ta- 
bleau 137). 

[TABLEAU B7j 

TABLEAIM DB 43,12,67,55,24,91,35 I 
MOV BX, OFFSET TAB LEA U I î 

; BX pointe sur le 1er élément I 
; de ht table TABLEAIM I 

MOV SI ,4 I 

MOV AL, | BX] [S 1 1 I 

: S’écrit aussi MOV ALJBX+Sl j I 
; BX additionné à SI pointe alors ! 

; sur le Sème élément du tableau ! 

: (Le 1er élément étant au déplacement i 


: 0). AL prend alors la valeur 24 ! 

! 
i 

REGISTRE <- DS:]BX+Si| ou DS:(BX+DI| (ES peut être I 
u t i I i sé à la p I ace de DS ) I 

Si on utilise le registre BP à la place de BX. SS est le registre de 
segment par défaut car BP sert principalement à lire les infor- 
mations contenues dans la pile. Pour comprendre le fonctionne- 
mcni de la PILE, imaginez plusieurs assiettes empilées. Quand 
on rajoute une assiette, on la place au-dessus. Dans la même 
idée, si on en prend une, on prend celle posée en dernière, soit la 
plus au-dessus sinon il y a de forte chance d'avoir à utiliser la 
pelle et le balais 1 La pile d'un programme fonctionne exacte- 
ment pareil: 

Quanti on place une information sur la pile (instruction PUSH 
que nous expliquerons plus tard), par exemple le nombre 3342b, 
cette information se trouve au sommet de la pile. C'est pour 
cela que lors de la lecture de la pile (instruction POP), le pre- 
mier nombre à sortir sera 3342h (tableau B8). 

1 TABLEAU BS] 


MOV 

A XJ 223 

pusii 

AX 

MOV 

AX.4342 

PUSH 

AX 

MOV 

AX.45Î2 

PUSH 

AX 

MOV 

A X. 98 76 

PUSH 

AX 


: A chaque PUSH. SP est décrémenté de 2 
: et la donnée est sauvée dans SS 


La pile contient alors: 
! et élément 9876 
cerne 1 q 1 1 


434 2 
i 223 


Si SP pointait sur l'adresse 100 avant î' 
il pointera maintenant sur l'adresse 92 et 
obtiendra en mémoire: 



* i 


on 


Adresse: 92 94 96 98 100 î 

Contenu: 9876 45 1 2 4342 1 223 - I 

y a encore mieux: On peut utiliser les registres HT une adresse 
pour préciser les coordonnées d'une donnée. Par exemple dans 
BX vous avez le déplacement et pour gagner du temps, on ne 
fera pas MOV SI, OFFSET TABLEAU " 
mais MOV AX.| OFFSET TABLEAU+BX J ou bien MOV 
A X . i B X+OF FS ET LA B LEA U] . 

De même, MOV CL.]Sl+OFFSET TABLEAU] ou encore MOV 
DI U | DI— 2 1 fonctionne parfaitement. Le lableau B9 résume tout 
cela. 


9. ! .8.2.73.6.4 


LABLEAU 
TABLEAU dw 


MOV 

MOV 

MOV 

MOV 


BX..3 | 

DI, 2 ! 

AX.ISl+OFFSET TABLEAU] 


FIN DE LA PREMIERE PARTIE : 

Fa suite dans le prochain numéro de POCHE COMPUTERS 


60 


Poche computers N°3 



POCHE COMPUTERS 


H 



p le te pour 250F) 


GESTIONNAIRE DE MACROS COMMANDES 

par JM POULOT 

g d ' un Possesseur de PC compatible ; il a l'avantage de tourner également 

m 95-100,Olivetti, Pocket PC etc ... Vous pouvez obtenir la version 

chez l'auteur pour 20F en timbres ou ta version corn- 







I . 



I 'tléé d'un programme de macro-commandes esl née er 
utilisant AutoCad. Ce logiciel, performant an niveau DAO, esi 
un peu pénible quant à l'accès de ses commandes. Ne disposai)! 
pas de tablette graphique car peu adaptée a mon travail, il fallaii 
déplacer la souris et cliquer sur les options et menus, (peu prati- 
que s lu un grand écran) ou laper les commandes au clavier. 

Je voulais obtenir une fonction AutoCad a partir d'une 
muche (ou combinaison) en réduisant ainsi les temps morts (non 
productifs) et conserver les yeux sur mon travail 

La piume ie étape consista donc a associer une suite de 
caracteies a une touche de I onction. Les douze touches étant 
utilisées, il fallait imaginer des combinaisons avec les touches 
ALT et CT RL. Ces nouvelles possibilités apportèrent déjà une 
souplesse intéressante mais insuffisante. Les louches SI II HT ont 
été aussi ajoutées pour multiplier les combinaisons 

Mais les séquences de caractères étant figées, il apparut 
fi nécessité d y inclure des fonctions : simulation de touches, 
signal sonore, test des boutons de la souris, branchements con- 
ditionnels et i é petit ion des macros, sous-programmes . gestion 
des plusieurs fichiers ... 

Toutes ces fonctions débouchèrent sur la création d'un 
pseudo langage et d'un compilateur. La version de cette dis- 
quette est limitée non dans scs fonctions mais dans le nombre 
exécutées (20). Après avoir épuiser ce nombre, il faudra 
désinstalle! puis teinstallei MAC. RO pour utiliser vos macros. 

Pour créer des macros-commandes, il faut donc écrire 
un licltiei souice, le compiler, et exécuter le gestionnaire avec 
pour paramètre le fichier objet issu de la compilation. 

2. Structure d une macro-commande 

A l’aide du compilateur (qui est aussi un éditeur de texte 
simple j il faut dédire les macros. Si cet éditeur ne convient pas. 
il est tout a lait possible d en utiliser un autre. 

Lue macro commence TOUJOURS par le caractère j seul 

sur une ligne. Ensuite vient le nom de la touche (ou combinai- 
son) d appel de la macro toujours sur une ligne. Puis la séquence 
d^ cniutlèies, de codes ou (onctions représentant la macro à 

jf y .. 

executu. La lin de la description est déterminée par le caractère 
1 seul sur une ligne. 

Exemple de macro qui, sous DOS. effectue un DIR par la lou- 
che Pi : 

caractère d ouverture de macro 
nom de la touche d'appel 
séquence de caractère 
simulation de la touche ENTREE 
fin de la macro 

Dans le fichier texte appelé SOURCE, on peut décrire 
toute une sèiie de macros relatives à un programme particulier. 
Pc compilateur vériliera la synthaxe des commandes ainsi 
les noms des touches d’appel. 

3. Touches d'appel 

Ees noms possibles sont : 

Fl à El 2 

ALI -Fl à ALI -F 1 2 


Fl 

dir 

#ci 



CTRL- Fl à CTRL-F12 

SI 11 TD -Fl à SHFTD-F 1 2 

SI 11 T G I I à SHFTG-FI 2 

CTRL-SHFTD-FI à CTRL-SHFTD-F 1 2 

C T R L - S H HT G - F I à CTRL-SHFTG-F 1 2 

A LT- SHFTD-F 1 à ALT-SI JFTD-FI 2 

A LT- S HFTG- F I à A LT- S H FT D- F 1 2 

ALT A à A LT- Z 

CTRL- A à CTRL-Z 

SHFTD-A à S H HT D -Z 

S HFTG- A à S HFTG -Z 

CTRL- SHFTD-A à CTRL-SHFTD-Z 

CTRL-SHFTG-A à CTRL-SHFTG-Z 

ALT-SHFTD-A à ALT-SHFTD-Z 

A LT- S HFTG -A à ALT- S HFTG- Z 

ALT-O à A LT- 9 

CTRL-0 à CTRL- 9 

SHFTD-0 à SHFTD-9 

S HFTG -0 à SI1FTG-9 


V 1 iNL-.Mir i IJ-O a v.. 1 KL-oHr ! 109 

CTRL-SHFTG-0 à CTRL-SHFTG-9 
Al T- SHFTD-0 à ALT-SHFTD-9 
ALT-SHFTG-0 à ALT-SHFTG-9 
A L r-ESG, CTRL- ESC, SHFTD-ESC,Sf T FTG-H S C 
CTR L-S H FT] CESC.CTRL-S H FTG-ESC 
A LT-SHFTD-ESCALT-S H FTG-ESC 
Les touches iiumenques sont les chiffres situés en haut 
du clavier et non pas ceux du pavé numériques. L'expérience 
m'a prouvé que ces touches étaient plus accessibles en cours de 


trav; 




\siii dctlenchei une macro des lors que le gestionnaire a été 
i nsiai lé AVA N T 1 " appl icati on . 

ATTENTION ! Si une macro esl définie sur une touche (ou coin- 
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binai son) et que le programme (application) l’utilise déjà, c’est 
la macro qui est prioritaire. 

Il est néanmoins possible de simuler les touches de fonctions 
(Fl à Fl 2). 

4. Codes et fonctions 

1 )ans une macro, tout caractère est considéré comme code 
clavier à transmettre au programme. Si une fonction doit être 
entrée, il faut la faire précéder par le caractère #. (voir ci-dessus 
l'exemple). 

Description des fonctions # : 

#PA suspend l'exécution de la macro jusqu’à l'appui 
de ENTREE 

#RP reprend F éxecution de la macro depuis son début 
#DEB redéfinit le début de la macro sur cette ligne 
#FIN provoque la fin de la macro 
#RTS provoque la fin d'un sous-programme (retour à la 


macro appelante) 

#CR 

simule la touche ENTREE 

#TB 

TA B 

#DL 

DEL 

#FI ... 

Fi ... 

#F1 2 

p | 2 

#UP 

CURSEUR HAUT 

#DN 

CURSEUR BAS 

#CG 

CURSEUR GAUCHE 

#CD 

CURSEUR DROITE 

#PU 

PAGE U P 

#PD 

PAGE DOWN 

#H M 

HOME 

#ED 

END 

#ES 

ESC APE 

#1 ï R 

envoie l’heure courante sur 2 caraclè 

#MN 

les minutes (00-59) 

#SD 

les secondes (00-59) 

#JR 

le jour (01-31) 

#MS 

le mois (01-12) 

#AN 

l'année (00-99) 


#MSG suspend Féxéculion jusqu'au clic du bouton Gau- 
che (souris) 

#MSD bouton Droite 

#MSM boulon Milieu 

#MSN attend relâchement d'un quelconque bouton de la 

souris 

#MS? attend l’appui de n'importe quel bouton de la sou- 
ris 

#SI MSD teste le bouton Droit, exécute la ligne suivante 

si vrai 

#SI MSM Milieu 

#SI MSG Gauche 

#ÂFN x,y affiche le message (ligne suivante) col x ligne v 
#MSX x déplace le curseur de la souris col x 
#MSY y ligne v 

v' tT 1 J 

#COD x place le caractère défini par le code ascii x (0- 


255) 


#SUB x appel du sou s -programme (PDEF) x (0-255) 
#BIP x émet un bip sonore Oipause. Fgrave à 32:aigu 
#TMP x règle le tempo de BIP en l/l Sème sec ( 1 -200) 


5. Particularités 

Pour définir une macro, on déclare la touche d’appel. 
Pour un sou s -programme, on inscrit PDEF et le numéro de la 
routine. 

Exemple 

Définition du sous-programme ti 10 

[ 

PDEF 10 
#TMP 10 
#BIP 20 


Définition de la macro appelée par Fl 


Fi 

#SUB 10 

DIR /P 

#CR 

#S U B 10 

I 

Les sous-programmes doivent être déclarés AVANT les 
macros qui les utilisent. Les sous-programmes peuvent aussi ap- 
peler d’autres sous-programmes dans la limite de 16 imbrica- 
tions. 

Une macro particulière est la macro automatique. 
Délinie par le label AUTO, elle peut être déclenchée de 2 fa- 
çons 

3 

- à intervalles de temps réguliers (ex sauvegardes, alertes 

-) 

- immédiatement au lancement du gestionnaire (ex 
initialisation) 

- depuis une macro 

l es modes d'exécution de AUTO sont déterminés par les 
paramètres transmis au gestionnaire lors de F installation. 

Lors de F exécution d'une macro, le tour de l'écran prend 
une couleur particulière et renseigne sur l’état de la macro. 

Par défaut les couleurs sont : 

- bleu : macro en cours 

- rouge : macro en attente d'un évennement 

- bleu clignotant : macro AUTO dans 5 secondes 

- bleu fixe : macro AUTO en cours 

- vert : macro AUTO en cours superposant une 

autre 

(à la fin de AUTO, la macro interrompue 

reprend) 

6. Installation 

On suppose F exemple suivant : 
dans le fichier source nommé TEST.DEF on inscrit 
[ 

Fl 

cl s 
#c r 


!) 


après compilation (touche F9 dans CM AC) on obtient un 
er objet 

du nom de TEST. @ @ @ 

faire sous dos MACRO TEST puis ENTREE (la touche 

un message indique le déroulement de l'installation 
et à chaque appui de Fl l’ordre DOS CLS s'éxécule 
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GESTIONNAIRE DE MACROS COMMANDES 



Pour désinstaller le gestionnaire, faire MACRO puis ENTREE 
Soit en règle générale: 

- lancer MACRO avec le fichier objet (installation des 

macros) 

- lancer l'application et travail) 

- à la fin de l'application, lancer MACRO 
(désinstallation) 

Il est très pratique d’opérer avec les procédures batch 
pour lancer une application avec ses macros. 

Autres: 

On peut à tout moment interrompre le déroulement d’une 
macro en appuyant simultatnément les touches CTRL et ALT. 

Lors de T utilisation d'un éditeur de texte autre que 
('MAC, pour compiler le fichier, faire CMAC | fichier] /A. 

7. Paramètres à l’installation 

/N désactive le tour d'écran lors de 

l'éxéculion d'une macro les couleurs peuvent être modifiées avec 
COULEUR 

/ F accélère les traitements, certains 

programmes n'acceptent pas ce mode (Microsoft pour ne pas 
les citer) 

/G les macros ne seront actives qu'en 
mode graphique (attention avec les drivers ADI !!) 

l\ déclenche immédiatement la macro 
AUTO (si elle existe...) 

/x x=valeur d'intervalle de temps de 
1 à 59 minutes pour AUTO en mode lurbo cette valeur dépend 
de la vitesse de la machine 

8. Généralités 

Pour utiliser au mieux MACRO et CMAC, il est préférable de 
placer ceux-ci dans la racine du disque (ou un répertoire ré- 
servé). 

Avec PATH=C:\ par exemple, il peut être appelé depuis n'im- 
porte quel répertoire. 

Ensuite, pour profiter des macros dans une application, créer un 
fichier batch 
comme suit : 

rem installation des macros en mémoire 

macro [fichier 1 |/n| I /x ] f/g] f/f J 

rem test si bien déroulé 

iferrorlevel l goto erreur 

ici lancer l’application 

iruc.exe 

rem désinstaller les macros 
macro 

fin du fichier batch 
goto fin 

G 

: erreur 

pause 

Tin 

9. Evolution prochaine de MACRO : 

- la gestion de la souris clics et déplacements 

- la simulation de toutes les touches et combinaisons 

- compilation sur 2 passes 

- l’appel inter-macro (ex: la macro Fl appel la macro 
CTRL-Q) 


- variables numériques et chaines de caractères 

- boucles d’itération FOR. WH ILE, REPLAT UNTIL 

- ouverture de fenêtre pour choix d'options multiples 

- sauvegarde d’écrans textes et graphiques 

- gestion de la mémoire étendue 

- mode d' ENREGISTREMENT dynamique 

- changement de fichier de macros sans désinstaller 

- inhibition des macros sur commande directe et 
événementielle 

- éxecution automatique séquentielle contrôlée (temps, 
événements) 

Autres produits : 

- menu AuioCad : interface permettant la gestion des fi- 
chiers AutoCad 

ouverture, traçage, impression, macro-commandes etc... 

- lanceur d'application garphique sous Dos par icônes 

9, Autre 

A ! installation de MACRO, un contrôle de CRC est ef- 
fectué. Si un virus ouunc modification du code intervient, la 
machine se bloque , un message indiquant la nature du défaut. 

10. Contribution et enregistrement 

La version de MACRO présente sur celte disquette est limitée 
dans le nombre de macros exécutées (20) dans une session. 11 
faut désinstaller puis réinstaller MACRO pour fonctionner à 
nouveau. 

Pour obtenir la version complète de MACRO et CMAC. une 
contribution de 250 FF est demandée. Cette participation donne 
accès à des mises à jour régulières car ce produit évolue tou- 
jours. 

En outre, un manuel d'utilisation est fourni et décrit toutes les 
ressources cachées de MACRO qui ne sont pas décrites ici. 

Utilise/ ce programme en respectant l'esprit SHAREWARE, 
vous pouvez copier ce logiciel à condition de fournir toujours 
ce fichier d’accompagnement avec les programmes sur le même 
support. 

L'auteur se réserve le droit d’accorder ou non l'enregistrement 
d’un utilisateur et décline toute responsabilité des conséquences 
qui résultent de l' utilisation de MACRO et CMAC. 

Pour tous renseignements (ou suggestions), contactez : 

Jean Marc POU LOT 
1, rue principale 
39350 DAM MARTI N 


ÀCCUWIÜLAJEUfii ULTRA PUISSANTS 

(1 200mA) de typei R6 AA 
tension nominale 1,2V, tension maximale 1,5V 

rechargeables 1 000 fois il! 

avec chargeurMu commerce ^ 

11 / se mettent en lieu et place des piles iif :r 
W sont écologiques car sans cilNium 

■■■:||âPPLI<M®|| : 
micros de poche | photo 
aéromodélisme - radio - etc... *. 

: 'l': PRIX : 

1 à 2 unités : 46F ttc unitaire J§j 

3 à 5 unités : 43F ttc unitaire : T|ft|, 

6 à 10 unités : 40C^teijnitaflMh. 
au delà : 36F ttc unitaire 
Disponibles sur stock 
MICROCARDS - 42220 - BURDIGNES 
tél 77.39.68.13 fax 77.39.19.60 " 
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LES LIVRES 


LES LIVRES DU BAC 


Deux nouveaux titres viennent enrichir la collection Calculatri- 
ces Efficaces de Dunod. Il s'agit de titres destines aux futurs 
bacheliers souhaitant exploiter ellicacemeiu mais simplement 
leurs outils de calcul. «HP-48 pour le Bac» et «TI-82, TI-85 
pour le Bac» sont des livres uniques en leur genre puisqu'ils 
comprennent a la fois : «ce qu il tant savoir» de votre machine, 
un résumé du cours de mathématiques, et surtout, de très nom- 
breux sujets du bac corrigés «calculatrice en main». «HP-48 pour 
le Bac» et «1 1-82, TI-85 pour le Bac» par Loïc Fieux cl Henri 
Lemberg, édités par Dunod, ces deux livres seront disponibles 
dès la fin du mois d'avril 94. 


Le MEMO FORMULAIRE 

A posséder absolument ! 

Plus de 300 pages de formules en tout genres. 






Saluons l'heureuse initiative des éditions CASTE! LL A qui 
édité ce livre dont les qualificatifs manquent pour le décrire ! 
Que vous soyez étudiant, chercheur, ou tout simplement curieti 
de toutes sciences, vous trouverez là réponse il tous vos probit 
mes de formules. Jugez plutôt de l’éventail proposé : 

- mathématiques 

- physique 


- électricité - électronique 

- chimie 


- biologie 

- technologie 

- unités 


- vie pratique 

Vous recherchez la formule de la racine cubique ? ; celle de la 
période d'un réacteur ? ; celle d'un moment polaire d'une cou- 
ronne ? ; du potentiel électrique ? ; de la permutation en chimie 
organique ? ; de l’abaque des impédances en automatisme 7 etc... 
Pas de problème, consultez le MEMO FORMULAIRE. 
L'ensemble est particulièrement bien structuré et accompagné 
de multiples dessins, croquis ou tableaux. La recherche s'effec- 
tue très rapidement et on se prend vite au jeu de la connaissance 
empirique. Un livre à mettre entre toutes les mains et à con- 
server sur sa table de chevet !!! De plus, le prix est modique. 


Aux éditions CASTEILLA également. 

le mémotech électronique 

pour tout savoir sur les composants élec- 
troniques. Depuis les normes interna- 
tionales, jusqu'à la liste des construc- 
teurs et organismes, en passant par la 
description détaillée de la plupart des 
gammes de composants : circuits logi- 
ques - analogiques - optoélectroniques 
- composants passifs et actifs - semi- 
conducteurs 

transformateurs et relais - connecteurs 
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- protections électroniques diverses. 

TOUT Y EST !!! le livre de référence de tout lycéen ou étudiant 


en électronique ou du passionné. 


HP 48 en prepa 

Ce livre, aux éditions DUNOD. sorti 
voici un an et demi est plus que jamais 
d’actualité. 

L'étudiant y trouvera de très nombreux 
programmes tels que : 

* Matrices et polynômes symboli- 
ques 

* Racines des polynômes 
*1 il verse de matrice 
Ainsi que les aides aux concours : 

Mines - Ponts - X - IJ lin etc... 


***►<" » [J f ft fl h ( , 4 i. I , 
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en prépa 
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HP48 - Pour le lîac 


(Henri LEMBERG et Loïc FIEUX), 
aux éditions DUNOD 


250 pages - 125F' - 

Vous avez l'ambition de réussir votre bac 


haut la main et vous disposez de la "Rolls" 
des calculatrices graphiques, une HP48G 
ou GX... Bravo, I! ne vous manquait plus 
que ce livre pour disposer de la panoplie 
complète vous permettant de venir à bout 
des sujets de maths les plus récalcitrants 
! Jugez plutôt : 

-Prise en main de la HP48G-GX 


-Résumé des cours de maths de terminale 
-Recueil d'annales du BAC de I989à 93 


HP 48 - Permis de conduire 

(Loïc FIEUX) aux éditions DUNOD 






Déroutante pour le débutant, passionnante pc 
l'initié, telle est la 11P48. Destiné aux profar 
de la notation polonaise inversée, ce nouve 
petit livre d’initiation à la HP 48SX/GX s'< 
promis de vous taire brûler les étapes, car, qt 
de mieux qu une acquisition rapide et aisée 
"l'esprit HP" pour exploiter rapidement et 
cilement sa calculatrice ? 
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ANIMATION pour GRAPHIQUE CASIO 

(troisième et dernière partie) 
par David WÏNTER 

Dans cette dernière partie , nous étudierons la partie graphique. Rappelons que la partie graphique corres- 
pond à ce que l on appelle la RAM VIDEO ; c’est à dire une zone en RAM dans laquelle sont sauvegardées 
les données de l’écran graphique . Pour pouvoir comprendre ce qui va suivre , il est impératif d’avoir compris 
l article precedent au niveau des accès en RAM , et surtout du codage d’une mémoire. Malheureusement , je 
n ’ai pu trouver les adresses graphiques des autres machines que la 8500 ... elle est égale à Z ( 49 19 ). 

1 > La ram vidéo : 

Les dimensions de l'écran de la calculatrice sont 96x64. Or. la 
ram vidéo se code dans 96 mémoires situées entre Z (49 1 9) et Z 
(5014), en ce qui concerne la 8500. Cela signifie que chaque 
mémoire représente un carré de 8x8 pixels sur l’écran. 

Ai I LXTION: Seule la Casio 75000 possède un codage diffé- 
rent. se faisant ligne par ligne. Dans le cas de cette machine, 
chaque mémoire codera pour une ligne de 64 pixels. Mais le 
principe de codage est le même, bien sûr. 

Voici le plan de la ram vidéo de la 8500. Pour les autres machi- 
nes exceptée la 7500. il suffira de remplacer les adresses. 


64 


0 


491 

492 

492 

492 

492 

492 

492 

492 

492 

492 

! 

492 

493 
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495 

495 











496 
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497 











499 

499 











500 

500 

500 

500 

500 

500 

500 
1 

500 

501 

501 

501 

501 

sot 


Chaque partie de cette grille est une colonne de 4 pixels. Un 
chill re va donc représenter 4 pixels ; son codage se présente 
comme suit : 

Il faut calculer la somme totale des pixels à éteindre. Pour cela, 
on part de 0 et à chaque fois que, en se déplaçant sur la grille 
dans une colonne, on a un pixel éteint, on ajoute à la somme 
totale le chiftre qui lui correspond. L écriture en ram vidéo est 
telle que l'on ne peut mettre qu’un chiffre compris entre 0 et 9. Il 
scia donc impossible de coder des séquences correspondant à 
un chiffre supérieur à 9. Mais on pourra compenser avec l'ins- 
truction PLQ9 pour allumer quelques pixels... 

Par exemple, nous avons une colonne de 4 pixels qui représente 
la séquence suivante : 


8 

4 

i 

I 


Le chiffre codant pour cette séquence sera donc 
égal à 5. En effet, le pixel 4 est éteint ainsi que le 
pixel I , Les pixels 2 et 8 sont allumés, 
s avons alors 1+4-5 


o 


96 


2) Codage d'une mémoire vidéo : 

il vous est demandé avant tout de bien connaître le principe de 
codage d’une mémoire. Référez-vous à l’article de POCHE 
COMPUTERS N°2 si vous ne savez pas comment opérer. Cha- 
que mémoire représente, nous Je savons, 8x8 pixels, et elle se 
code sur 16 chiffres dont deux pour l'exposant, un pour les si- 
gnes de l’exposant et de la mantisse. La méthode est la même 
que pour les caractères texte : 

- décomposer les 13 chiffres pour obtenir une séquence de 13 
chiffres. 

- ajouter l’exposant et les deux chiffres codant celui-ci. 

- placer la virgule entre les 2 premiers chiffres. 

- en fonction de la valeur du chiffre codant l'exposant et la man- 
tisse, placer les deux signes et modifier l'exposant si son signe 
est négatif. 

- décomposer la séquence finale en une somme de deux nom- 
bres de façon à ce que la machine prenne en compte tous les 
chiffres. 

Voici à présent le schéma d'une mémoire : 


Le codage 4e 1 exposant et de la mantisse reste le même avec 
toujours 4 possibilités : 

Chiffre Mantisse Exposant 
0 + + 

î + 

5 

6 


+ 


3) Exemple de codage d'une mémoire pour un bloc de 8x8 

* 1 

rl ■ v I & * 



Voici d’abord la grille comportant les pixels du bloc à coder. 

Au dessus et en dessous de la grille, figure la place du chiffre 
dans la séquence. 


E 

X 

P 1 
2 3 


9 7 


S 

5 

G 

3 N 


8-4-2 

Exp2 

13 

11 

9 

7 

5 

3 

Sign 

8-4-2 

Expî 

12 

10 

8 

6 

4 

2 

t 


i 

2 

3 

4 

5 

6 

7 

8 


8 

4 

2 

1 

8 

4 

2 

1 


E 

X 

P 

I 


1 1 
2 0 


8 6 4 2 1 
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La méthode de codage est la suivante : 

* Commencer par trouver les 13 chiffres ; ici, la séquence est : 
8666624 24666 6 . 

- Placer la virgule entre les deux premiers ; on obtient 
8,666624246666 

- Chercher ensuite les deux chiffres codant l'exposant ; ici, le 
premier est égal à 8 et le second à 1 : l’exposant est donc égal à 
8 1 . On a alors 8, 66662424 66 66 L8 1 

- Calculer la valeur du chiffre de la colonne "signe" et en dé- 
duire les signes de l’exposant et de la mantisse : égal à 1, ils sont 
tous les deux positifs. On a donc +8, 666624246666 E+ 8 1 . 

Or, la machine prend en compte les dix premiers chiffres, donc 
nous allons devoir faire une somme de deux nombres. Par exem- 
ple, nous pouvons mettre : 8.66662424E8I + 66 66 L 69. 
Attention : Ne jamais oublier le cas où le signe de l'exposant est 
négatif ; à ce moment, il faut retirer 100 à sa valeur absolue. Se 
référer à l’exemple donné dans POCHE COMPUTERS N°2. 

4) Conclusion 

Vous avez maintenant tout ce qu’il faut pour faire des anima- 
tions avec votre machine. Mais il existera des cas où il sera 
impossible d’obtenir certains dessins, à cause du défaut de co- 
dage... 

Cependant, on pourra toujours faire des petits programmes, par 


;de mande saisie de A 
; vérifications de la valeur de A 


exemple de dessin avec sauvegarde d’écrans. Vous trouverez ci- 
après un programme de sauvegarde d’écrans. Sa syntaxe est cor- 
recte, mais vous pourrez remarquer qu’il fonctionne rarement 
car certaines mémoires sont codées, à la base, de telle façon 
quil est impossible de les copier dans d’autres mémoires. Cest 
dans ce cas que certains chiffres la codant sont supérieurs à 9, 
donc compris entre A et F en hexadécimal. 

1 -> save" 

" 2 => load" 

? -> A 

Ad => 1 -> A 
A>2 => 2 ->A 
"Ecran N° (0 -> 

7 ->B 

B<0 => 0 ~> B 
B >7 => 7 -> B 

97 B -> B 
49 1 9 -> C 
Lbl 0 

A=1 => Z [C ->Z [B] 

A=2 => Z 1 B ->Z [C | 

Isz B 
Isz C 

B <97 -> Goto 0 
"RH AD Y..." 


;de mande saisie de B 
;vérifications de la valeur de B 

;adresse de sauvegarde 
;adresse graphique de la 8300 
;label pour la boucle de copie 
;sauve écran si demandé 
;chargc écran si demandé 
;on passe aux mémoires suivantes 

;continuc la copie si B<97 


Jeu des allumettes (dit jeu de MARIENBAL) pour Casio FX 

(par Emmanuel MEUNIER) 

Ce jeu se joue à deux . Son but est de prendre un certain nombre d'allumettes par ligne. Chacun , à son 
tour, peut piocher autant d'allumettes qu 'il désire, mais sur une seule ligne seulement ! Le perdant est 
bien sûr celui qui doit prendre la dernière allumette. 


M cl 

Range 0,94,0,- 1 2,50,0 
Lbl 0 
- 1 0— >G 
Lbl 3 

Plot 55-A+G,5+A 
Plot 55-A+G.ll+B 
Line 

G+ 1 0— >G 

2A+G->Goto 3 
A+l 0— >A 
B+10— >B 

B^40=>Goto 0 



Plot X,Y 


Pour commencer une partie, allez sur la ligne 
du bas de l’écran. 


Y= 0 =>Goto 2 


10 Int((Y-5)/10)+8->D 

10 Int((X+5)/10)+8— >1 

Plot 49-D.D 

Plot LD 

Line 

Goto ! 

Lbl 2 
"FIN" 
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RUBRIQUE GRAPHIQUE CASIO 






Voici une version améliorée et allégée 

(lu fameux jeu "Démineur" sur Casio 

8800 

par Olivier AUTRES 

Defm 67 

Range .125,1 1.875,0, -.875,6.875 0 5 ._> 
A 

3->A 
3— >V 
Lbl 0 

A <- 6.875 => Graph Y— A 
A >11. 875 =>Goto3 
Plot A,0 
Plot A, 6. 875 
Line 
Lbl 3 

ran#) — > 

i s /. A 
I s/ V 

V< 66 ~> Goto 0 
I --> A~B 
0 -> Z| 12J- Z| 1 3 ] 

kfel § ~> A< i 1 => Lsz A 

Lsz B 

0 ->Z f A+ 1 1 (B- 1 )] 

A=l I =>B=6 => Goto 5 
Goto 2 
Lbl 5 

1 ~>A ~B 
0 ->V 
Lbl I 
0 — >E 

”Nb de mines" 

A>1 =>Z|A-I + 1 1 ( B- 1 )j ->B 
\<I I =>Z[A+ 1 j 1 1(B-I )| +{’ — >E 
B<6=>Z(A+I IB]+E~>E 
B>l=>Zf A+I I (B-2)]+E— >E 
A> i =>B<6=>Zf A- I + 1 j B |+E— >E 
A> 1 =>B> I =>Z[A- 1 + ) I ( B-2) j+E— >E 
A< I ! =>B<6=>Zj A+ I + ! j B |+E->E 

A<l 1=>B>I =>Z[A+] + 1 ! (B-2) |+E 

La 


Plot A-.LB+.l 
Plot X,B-. 1 
Plot X,B-.l 
Line 

Plot A, Y 
Plot X,B+. i 


Plot A+. i ,Y 
Plot X.B-.l 


Plot A, B a 
A-->C 
B— >D 

X<A=>Dsz A 
X>C=>Lsz A 


Y<B=>Dsz B 
Y>D->Lsz B 
A<1=>C ->A 
A>1 1 =>C— >A 
B< ! =>D— >B 
B> I i=>D— >B 
A= 1 1 =>B=6=>Goto 7 

ZfA+ 1 1 (B- 1 )]=!->Goto 8 
Goto f 
Lbl 7 

«Gagné» A 
Goto 4 
Lbl 8 
«Perdu» a 


Lsz V 

V=66->Goto 9 

Z|.VJ=0=>Goto 4 

VG t (lnt((V- 1 )/] | ))-.5~>A 

lnt(( V- i )/] 1 )+.5— >B 

Plot A, B 

Plot A+l , B+l 

Line 

Plot X,B 

Plot A, B+l 

J J ne 

Goto 4 

Lbl 9 

De! in 0 

Graph Y=0 a 



REGLES DU JEU 

Appréciation de la distance : Plus le dra- 
peau est petit, plus l’écran est profond. 
Appréciation du vent : Le drapeau donne 
la direction et la force du vent. 
Appréciation de la pente : 

Saisie des données : Tirs de longues dis- 
tances (supérieurs à 15 mètres). Quand le 
curseur est placé en bas de l’écran (47,0). 
déplacez-le pour indiquer la force (en Y) 
et la direction du coup (en X), car le vent 
devie la balle. Ensuite, après avoir tapé 
sui EXE, le curseur se situe dans le 
schéma de la pente, en haut à gauche. Pla- 
cez-vous sur le demi-cercle pour indiquer 
l’angle de frappe. ATTENTION, c'est 
l 'aide formé avec le sol, et non avec l'ho- 
t i z j > nta le. L angle doit être positif. Tirs de 
courte distance (Putt). 

Indication : Il y a un P dans le soleil. Il ne 

Liut saisi] que la lorcc (X est inefficace). 

ATI ENTION, la pente intervient car la 
balle roule I! 

RESULTA! : Si vous avez fait moins de 
u,u ps que ie «par», c est gagné !! 

P R OG R A M M E G O L F 3 1 ) 

M CL: »===G OLE 3D-==» 

Int 80 Ram II-4()->K 
Tan K >K 


47->D 

Int 22 Ram II+I5->P 
Int 18 RamAM IL8->I 

«PAR;»:Int( 1 ,5+PAbs Kl 

/60->Za 

Lbl 9 

Range 0,94,0,-8,54,0. 

0. I L n/5 
0->A~C 
Rad 
Lbl 0 

Plot 24-24 A/P. P- A 
Plot 69+24A/P.P- A ; Li ne 


A+(Bx> 2.2)/3->A 
B<6=>Goto() 

Lbl I 

Plot C,0:PIot 24+C/2,P:Line 
C+l 3.2->C 
C<95=>Goto I 
Lbl 3 
300 I>I ->H 

Plot D, P: Plot D,P+H:I J ne 

i >lot D+ 1 () IP' p+o 43 I J+ 1 0Ahs jp 1 ;I 

Plot D,P+0,75H:Line 

Graph (X,Y)=(4 Cos T+85,4 Sin T+45) 
Graph(X,Y)=(4 " 
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Graph (X,Y)=(8 Cos(T-n/2)+ 10,8 Sin(T- 
n/2)+42) 

Plot 5,42: Plot 10,42: l a ne 

Plot 10+BCos Ta ir 1 K: Line 

P> ] 5=>Goto 5 

Plot 84,43: Plot 84.47:Line 

Plot 86,47 :Line:Plot 86,45 :Line 

Plot 84,45:Line 

Lbl 15 

Deg:Plot 47,0a 
Y->F 

X-47->L:Isz W 
P> 1 5=>Plot 10,42a 

P>I5=>Cos- ] ((X-IO)/8->Q 

Abs( 2F-( CosQ) 2 ( K-Tan Q )/ î 0->S 
L+Fl/7->lJ 

U<0=> -1->I 

P=<15=>Int(F-8K)->P 

P>I5=>Int(V((P-S)-+U 2 )->P 

P>35=>»TROP FORT !!»a 
P>35=>Goto 5 
S>P=>-K->K 
P=<8=>Goto 7 
K(P-S)/P->K 

« «:» «:» «;» «;» « ; » « ;>> « 

Goto 9 
Lbl 7 

W=<Z=>» GAGNE ! !» a 
w>Z=>» PERD U ! ! » a 
«JOUEUR ;» 

Wa 

«BONUS :» 

Z-Wa 


Poche computers N°3 



POCHÉ COMPUTERS 
8 


PETITES ANNONCES GRATUITES... 

(maxi 150 caractères ou espaces) 

es petites annonces sont publiées sous V entière responsabilité de leur auteur. Nous nous réservons le droit 

de ne pas publier certaines petites annonces n ' ayant aucune relation directe ou indirecte avec les micros de 
poche ou les calculatrices. 



1 182 cherche cordon transfert + programme 
pour relier PC à '1182 ou 85 échange pro- 
gramme 1182 - Bruno ROUSSEAU - 
10 impasse du sud 
94120 FONTENAY - 48.72.69.77 


O.MONACHON 4 rue delagrange 75015 Pa- 
ns ( ! ) 42.50.64.89 Vds PORFOLIO S 28K IN- 
TERFACE PARALLELE + CABLE + TURBO 
PASCAL + T. FO RT H = 1750 F à débattre 

Vds organiser CASIO SF9300, jamais servi, 
encore sous plastique, cause double emploi. 
1000 F au lieu de 2360 F aujourd’hui! 

TEL: (1) 47.80.87.14 

Vds PSION sérié 3 256K avec TABLEUR et 
DOC 1 EL: (99) 56.39.63 Heure repas. 

Vds PSION sériés 3 256KQ 1200 F 
TEL: 94 03.40.10 - (soirée) - 
Frédéric, 83 TOULON 


Vds 1174 Basicalc + 3 modules: MATH, RAM 
8K et PASCAL 800 F TBE William au 
(16) 42.81.82.77 

Vds Sharp PC 3000 1MO SS garantie 9 mois 
2000 F tél : 2 i 58.74.20 


O.MONACHON 4.R. DELAGRANGE 75015 
PARIS TEL: ( 1 ) 42.50.64.89 IIP48SX + carte 
HP4 1 + KIT PC + GOOD1ES DISKS + LI- 
VRES + B ATT. REC H ARC. . 
total: 3500F, vendu 2000F à débattre. 


Vds programme de gestion de comptes + 
échéanciers pour scharp EL-9300 ..Tetudie 
vos besoins spécifiques, tel: 60. 16.87.96 Alain 


FOURNIER (Paris) 

Vds Porfolio 128K + carie RAM 128 + cartes 
ROM BASIC et MATH + ADAPTEE' R SEC- 
TEUR: 2000 F à débattre. TEL: 64.62.29.86 - 


Benoit LOEILLOT 


Vds Porfolio 128 + carte 64 KO 600 F, Vds 
TURBO FORT H 350 F 
TEL: (21) 58.74.20 


Vends CASIO 8500G avec 3 MANUELS DE 
PROGRAMMATION TBE: 100 F TEL:(I) 
39.66.01.13 Paul. 


Vds pour sharp PC- 1 350 ou pour PC- 1 450P: 
impri. table traçante CE- MOP 
( 7 couleurs) état neuf PRIX ; 700 F. 

Appeler le soir en semaine : 88.60.53.75 

Vds pour PB- 1000: LECT, DISQ. MD- 100 



(nombreux programmes) état neuf 2000 F + 
Impri. thermique FP-40 500 F. Appeler le soir 
en semaine. TEL: 88.60.53.75 

Vds HP95LX 5 1 2 KO + Connection TV PACK 
+ Documentation en anglais + programmes 
palmtop suscaibcr Mr GARCON-DUFGUR 
TEL: 64.2 1 .40.92 26 Rue de la couture 77500 
CHELLES. Prix: 1800 1rs 

Vds organiseur SHARP IQ-8100M (64K) + 
carte BASIC/MATHS + TRADUCTEUR an- 
glais + tableur + RAM32K + imprimante + 
housse cuir: valeur environ égale à 5800 F / 
Prix: 2000 F /jean: 45.76.51.70 

Vds PSION Séries 3a 5I2KO SSD 128 K + 


CHAMBERT 37000 tours. 

Vds organiseur casio SF-R20 256 KO tableur 
3D, CAR 6 MOIS: 2000 Ers SHARP PC 1600 
+ table traçante A4 4 couleurs lecteur disque 
+ 32 KO RAM: 1500 Frs à de batte, 

TEL: 20.91.07.81 

Vds SHARP PC- 1500 + table traçante; canon 
X07; extensions et documentation système. 
TEL: < I ) 60.02.58.80 

Cherche lecteur de disquettes ou autres 
extentions pour CANON X-07. 

LAMBERT Pascal 31 rue du BRABANT 
37100 TOURS. 


cable impr. + Sacoche luxe + gestion bank + 
jeux, sous garantie. Valeur: +5000 Frs. Vendu: 
3900 Frs. TEL: 47.32.07.41 TARTU. 

Vds PSION 3 128K GARANTIE 10/94 1000F 
+ traducteur 300 Frs. 

TEL: 38.72.66.24 AP. 18 H 

Cherche modem + coupleur acoustique + soft 
+ hard ( ROM ) pour porfolio : Vends Casio 
85 0P WE: SUCHET Dominique 
70200 LinexetT TEL: 84.63.60.44 

Vds TI85 état neul'+ interface PC et MAC le 
tout sous garantie (oct 95) valeur i 300F vendu 
980 F port compris (métropole) 

TEL: 29.35.13.44 Beaume. Epinal. 

Vends HP 48GX sous garantie 1500 F + se- 
crets de la HP48 230 Frs, ei câble PC. le tout 
1900 FRS. Ecrire Joan MOREAU 20 RUE 


Vds HP 48GX sous garantie + câble liaison 
PC + nombreux programmes 2400 Frs port 
compris, à discuter Raphaël R ACME. 

63. chemin des HUTINS 
1232 CONFIGNON ( Suisse ) 

Echange sur HP48 SX/GX progs, jeux. Pos- 
sède 1 M de progs et de j eu x . LEM A R C H A N D 
Stéphane I rue des Fermes 76310 Ste Adresse. 

Vds programme de transfert + câble RS232 
pour SHARP PCEÔOO + interface série. 
TEL: 72.24.17,97 ( Après 19 H ). 

Achète HP16C un bon prix si elle est com- 
plète et en TBE. François au 47.71.70.46 

Vds PSION LZ64 + étui + adaptateur secteur 
+ tableur + data pack !6K + soft + liaison mac 
+ manuels - 1 200 Frs ARGELLY TEL + FAX: 


i 9.4 ! .2 1 .94.34.329 ( Le soir ) 
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PETITES ANNONCES GRATUITES... 


Vends HP28S + manuels. 

Bon étal : 450F Sandra SPIESSKR 
rue cigognes 
67330 NEUW I LLER/S AV ER N E 
TEL: 88.70.04.39 

Vds casio EX 8000 G étal neuf + doc VF + 
Livre «jeux et graphisme sur casio EX» : 450 
1rs. Port colissimo compris. TEL: 47.64.53.5 1 
{ 19 h ) ou COUSTARD Eric. 4 avenue du 
général De Gaulle, 

37000 TOURS. 

Vds Calculatrice HP42S 7,2 KO SOLYER, 
MATRICE, STAT/PRQB, etc... + 270 F CT. 
PRGM: logique RPN. Excel étal. 

Emulation HP 41 C.+2 Manuels: 500F TEL: 
94.35.39,34 ( le soir ). 

Vds Casio PB 2000 64KO RAM + ROM Basic 
+ MD 100 ( LECT 3,5"+ port RS232) + câ- 
bles +lable traçante 4 couleurs FPI00 
Prix: 2000 Fr s. 

Laurent (93) 83.60.27 

Vds PSION sériés 3 128 K acheté le 24/09/93 
Atari FT 8MO RAM DD80 MO; Emulation 
spectre GCR N BS prog SUPER ETAT. TEL: 
34.90.08.09 12H-13H30 18H-21H David. 

Vds SHARP PC-E500, Etal neuf avec notice 
+ emballage d’origine: 1000 Frs, Franck au 
45.74.12.56 Paris 75017. 

Echange ou vends cardroms, cardrams, progs, 
jeux ( etc.., ) pour Portfolio. Achète carte - 
ROM jeux 1,2,3. 

TEL: 88.95.64 14 APRES: 18H 

Vds KIT transfert de données HP48 DE/ A PC 
comprenant câble RS232 + disquette avec 
progs et divers logiciels jeux math LUCIEN 
(lyon) TEL : 78.22.23.2 j' (180Frs). 

Cherche progm de jeux pour casio PB 1000 
40 K sur papier. Tous frais payés. 

P. H AJ AS 42 rue des abricotiers, 

66330 CABESTAN Y TEL: 68.50.66.67 

Echange nombreux utilitaires et jeux pour 
casio graphique contre utilitaires et jeux pour 
HP48G. Thiébaut BERTRANT 33 rue de BIT 


CHE 57370 PHALSBOURG. 

Achète tous programmes sur DK FORMAT PC 
pour HP48GX écrire il : 

Julien PERE LES CEDRES PORTE B 20000 
AJACCIO (corse) Réponse assurée. 

Vds PSION scrics3 256 K Tableur housse cuir 
1300 Frs. K INT Gérard 14000 CAEN TEL: 
31.39.33.09 BU R. 

Recherche listings - jeux - ulils pour casio 
FX702P. Ecrire a: FIE Y Thierry. 1 1/65 bis rue 
judo Blanckacrt 59140 Dunkerque. 
28.60.68.65 


Vds FA 80 PR EX 8500 et 8000. Vds FX8500 
et magnéto cassette et Vds livre HP48 en 
préparation. TEL: 74.68.46.42 demander 
lane HENRY. 


X 


Recherche tous programmes sur disquette PC 
pour HP48GX et plus particulièrement un 
viewer et des progs de maths. Legry L 19 rue 
des mésanges 60600 Breuil le vert, 

Vds PSION 1 .7+4 avec adaptateur PC; 1000 Frs. Vds 
I IP48S: 500 Frs. Vds PSION sériés 3 256K + 
tableur: 1500 Frs, Cherche programme pour 
HP95LX. A. COSTE TEL: 46.60.33.29 

Vds FOLIOLJNK complet (transfert ST-PF) 
300 Frs (+30 Frs de port) 

Téléphoner le soir au: 34.24.87.02 

Achète logiciels et extension mémoire pour 
PSION Sériés 3A d* occasion : M. LABBE 
Laurent TEL: 94.23.08.15 Après 20 heures. 

Vends livre pour HP48: Voyage au centre de 
la 48 version 3. 200 F. TORRES Stéphane 18. 
impasse du plat 1 1500 Quilïan, 

Achète pour HP48GX tous jeux utilitaires, En- 
fin tous ce concernant la HP48GX... TEL: 
85.40.50.47 .Après 17 heures / M. GRIMLER 
Olivier 2 rue des sapins 68560 Hursingue. 

Vds: ATARI PORFOLIO 512KO + Packalim 
(accus surpu ïssants+m mi chargeur interne+ 
transfo charge lente ou rapide.) +5 cartes mé- 
moire RAM 128K+étui de protcction+boitier 
d interlace parallèle el le câble connection PC 
Maeintosh+P. Basic 4.91 avec utilitaires DOS 


supplémentaire + ROM interne type El 30 + 
toutes documentations. Prix: 3500 Frs. TEL: 
21.76.82.00 . FAX: 21.76.82.00 , 

Vds TI 59 prodrammable + doc + chargeur + 
module maths le tout 200Frs. TEL: 
98.07.99,60 (Si absence répondeur.) 

Vds organiseur casio SF-R20 256KO tableur 
3D, garantie 6 mois: 2000 Frs; SHARP PC’ 
1600 + table traçante A4 4 couleurs + lecteur 
disque + 32KO RAM: 1500 Frs à débattre. 
TEL: 20.47.31.89. 

Vds pour H P48 carte HP suive équation li bru ry 
avec tetris 700 Frs carte math calcul version 
3: 500 Frs. M. DECOR 345 av J. RAYNAUD 
83140 six - fours. TEL: 94.34.36.37 

Vds SHARP PC 1360 EXT64K + carte 8 K + 
lecteur disquette SHARP CE 140. 128K + in- 
tcrface cassette +programme malh gestion 
* TEL: 46. 55. 52. 1 0-45.80.92.06 

DOM. BASSES. 


e 


Vds SHARP IQ 9000 version anglaise achet 
en 02/93 3000Frs à débattre. TEL: 

43.34.58.42 ( AP.20h ). P.ENJALBAL 31 rue 
adatn ledoux 92400 courbevoie. 

Vds SHARP 3100 2MB sousgarantie cause 
double emploi+lecteur disque 1 ,44MB+adap- 
tateur série parai. +pack alim+housse: 6300 
Frs. TEL: 43.87.13.35 (14h à 19h). 

GIRARD LE MANS. 


Achète manuel ou photocopie du manuel 
SHARP PC 1360. Contacter Régis 
TEL: 78.95.35.17 Lvon. 


Vds carte PACMATH pour HP48SX: 650 Frs 
( achetée 890 Frs ) cause achat HP48GX. 
TEL: 56.75.96.81 Gilles GONZALEZ. 3 rue 
Ed. Branly, 33140 Villenauve d'Ornon. 

Vds HP28S excellent état + 2 livres : "la maî- 
trise de la HP28S”. Le tout 700F plus une TI8 1 
200F. I el 43.27.42.53 demander LILIANE de 
13h à 1 .5 li et après 2 Oh. 

Possesseur HP95LX cherche contact avec pas- 
sionné expérimenté ou club pour conseils et 
échanges Tel 78.62.82.62 LYON après 20h. 


Le .. /.. / 1994 


Bon à découper, à recopier ou à photocopier. 

Placez ici votre texte d'annonce, 1 caractère ou espace par case. N’oubliez pas vos coordonnées I 
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Demandez nos anciens numéros : vous pouvez les obtenir 
directement chez vous pour 35F + 4F de port par numéro 

(35F+10F de port hors de FRANCE) 





GAGNEZ UN ABONNEMENT ! 

Vous avez conçu un programme ou une application originale ? Vous avez (les idées intéressantes ? 
Expédiez-nous votre listing ou dessin. Si possible tapé à la machine ou sorti sur imprimante, ou encore 
mieux, sur disquette PC compatible (peu importe le format : Ascii - Word - Works etc... ceci nous évite de 
longues frappes à la main toujours fastidieuses), on le publiera certainement, et vous contribuerez à la 
qualité de ce magazine, pour le plaisir de tous ï 


Aidez-nous ! Abonnez-vous ! 

BULLETIN D'ABONNEMENT à POCHE COMPUTERS 

(à recopier, ou à photocopier, ou à découper et à expédier à) 
POCHE COMPUTERS - 42220 - BURDIGNES - FRANCE 


Mme/M Prénom 

Adresse Code postal Ville 

Profession (facultatif) Tél Fax 

Je possède ou je désirerais posséder un ordinateur ou une calculatrice de marque 
Je suis intéressé par tels ou tels produits 


Oui, je désire m'abonner pour 6 numéros à POCHE COMPUTERS à partir du numéro j | indus 

et je règle la somme de 180F (215F hors de FRANCE ). J'ai bien noté que je recevrai chaque numéro chez 
moi en franco de port, quelques jours avant sa parution en kiosque. 


I Je ne désire qu'un ou plusieurs numéros : No I I I I . 

port par numéro demandé. (35F+I0F de port hors de France) 


et je règle la somme de 35F + 4F de 


Règlement par 


chèque 


mandat PTT 


chèques non acceptés hors de FRANCE 
paiement par mandat ou carte 


Indiquez ici vos impressions, soyez assurés que 


l'on vous lira avec attention. 
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BON DE COMMANDE 

Tarif TTC au 1 juin 1994 

ce tarif remplace et annule les précédents 


DESIGNATION 


SHARP 


PC 3000 IMS 


PC 3000 2MB 


PC 3000 4MB 


Pack 1 : fait passer la PC 3000 1MB à 2MB 


Pack 2 : PC 3000 2MB à 4MB (expé. la SHARP) 


Lecteur de disquettes 1 ,44MB 


Alimentation secteur 1 ampère 


Câble parallèle (Imprimante) 


Câ ble lap llnk (transfert PC et MAC) 
Accus 1200mA (unitaire) 


par 3 


par 6 pour lecteur de disquettes 


Etui de protection toile matelassée 
Packallmentatlon (aifm secteur + 


chargeur interne + 3 accus 1200mA) 


Cartes mémoire : voir page suivante 
Organiseur IO 9200 F 


PCE500 carte mémoire sauvegardée 1 28K 


PCE500 carte mémoire sauvegardée 256K 


HEWLETT PACKARD 


HP 48GX 


Câble de Maison HP <-> Pc (avec soft) 


Câble liaison HP <-> Minitel (avec soft) juillet 
Cartes mémoire ram pour 48SX-GX 


48HP128 (1X128K) 


48HP256 (2x1 28K) 


48HP512 (4X128K) 


48HP1024 (8x1 28K) 


Cartes mémoire rom pour 48SX-GX 


UTILS 1 ou JEUX 1 ou HPMAN1AC 1 


par 2 cartes (entourez celles choisies) 


par 3 cartes 


Carte PACMATH 


L ecteur de disquettes pour HP48/ HP95 1,44MB 


Convertisseur A/D pour HP48 - 2 fols I6blts 


Protecteur rigide environnement hostile HP48 


HP 95LX 1MB 


TOPOLAND (soft carnet de terrain) 


HP 1Q0LX 1MB 
HP100LX 2MB 


Câble de connection HP <-> PC 


Câble de connection HP <--> Mac 


Kit de connection HP95/100 <--> PC 


Kit de connection HP95/100 <-> PC 


Kit de connection HP95/1 00 <--> Mac 


convertisseur série/parallèle 


Pack 3 : fait passer votre HP100LX 1MB à 2MB 

* 11 ■ 

nécessite l’envol de l'appareil (dlspo juillet) 


Carte Fax-modem PCMCIA pour HP95 (4300b) 


Carte Fax-modem PCMCIA pour HP100 (9600b) 
Cartes mémoire PCMCIA (voir page suivante) 


Prix U 


3450F 


3990F 


5990F 


1290F 


2790F 


2495F 


165F 


295F 


Nb 


295F 


46F 


129F 


240F 


295F 


380F 


5590F 


495F 


690F 


2390F 


230F 


245F 


495F 


795F 


1295F 


2195F 


420F 


790F 


1100F 


890F 


2650F 


TEL 


TEL 


3990F 


TEL 


4790F 


6390F 


230F 


230F 


760F 


760F 


760F 


660F 


1800F 


1760F 


2490F 


Total 


PSION SERIES 3/3a 


PSION sériés 3a 256K (version anglaise) 


PSION sériés 3a 51 2K (version anglaise) 

■ ■ - f u M _ 

Lecteur de disquettes 1 ,44MB 


SSD RAM 128K 


SSD RAM 256K 


SSD RAM 51 2K 


SSD RAM 1MB 


Prix U 


Nb 


3190F 


3490F 


2790F 


735F 


890F 


1490F 


SSD FLASH 1 28K 


SSD FLASH 2S6K 


SSD FLASH 512K 


SSD FLASH 1 M B 


SSD FLASH 2MB 


Liaison série pour PC ou Mac 
Liaison parallèle 


2920F 


520F 


720F 


1220F 


2090F 


2890F 





790F 


Pack 4 : lait passer le sériés 3 126K à 256K 


Pack 5 : fait passer le sériés 3a 256K à 51 2K 


Pack 6 : tait passer le sériés 3a 256K à 1MB 


Pack 7 : tait passer le sériés 3a 51 2K à 1MB 
Tous ces packs nécessitent l'envoi du Sériés 3 


440R 


300F 


390F 


TEL 


TEL 


Kit développeur standard pour sériés 3/3a 


Kit développeur professionnel pour sériés 3/3a 
FAX-MODEM (dlspo ml-juin) 9600bds 


Emulateur minitel (soft + câble) 


2390F 


3590F 


2850F 


Emulateur minitel (soft + câble) + modem V23 
Option émulateur minitel sur SSD 128K : supplément 


PERIPHERIQUES SOFT (en anglais) 


Winll nk Windows (complément de serial llnk) 


Nouveau soft pour Mac link (disquette) 


VT emulator (sur disquette) 


SOFTS (en anglais + mise en route français) 


Psion Money pour Sériés 3a (sur SSD) 


Finance Pack sériés 3 


Finance pack sériés 3a 


JEUX 1 


JEUX 2 


JEUX 3 


3 fllght simulator Planner (sur SSD 512K) 


Professlonal Finance 


1290F 


1890F 


520F 


430F 


195F 


650F 


595F 


550F 


550F 


550F 


550F 


550F 


1590F 


Paint and compose Sériés 3/3a 


NOUVEAUX POCKETS HAN BIT 


Palmtopla 286 - HBC 100 1MB ram 


Palmtopla 286 - HBC 120 2MB ram 


Palmtopla 286 - HBC 100s 1MB ram + sound blaster 


Palmtopla 236 - HBC 120s 2MB ram + so uwT blaster 

Palmnote 386 - HBC 1320 2MB ram 

Palmnote 386 - HBC 1340 4MB ram 

Palmnote 486 - HSC 1 420 2MB ram _ 


Palmnote 486 - HBC 1440 4MB ram 


Palmbook^486 - HBC 4413 4MB ram - disque 130MB 


Palmb ook 486 - HBC 4413 4MB ram - disque 260MB 


Système portatif Intégrant codes barres et 
m prlm ante 



790F 


720F 


4990F 


5390F 


5590F 


5990F 


8850F 


9990F 


10900F 


12400F 


15990F 


1 7550F 


MICROCARDS - 42220 - BIJRDIGNES - Tel 77.39.68.13 Fax 77.39.19.60 
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DESIGNATION 


BON DE COMMANDE 

Tarif TTC au 1 er juin 1 994 

ce tarif remplace et annule les précédents 

Prix ui Nb 


ATARI PORTFOLIO 


Portfolio neuf 128K 


Portfolio neuf 256K 


Portfolio neuf 51 2K 


Portfolio occasion révisé atelier garanti 3 mois 


Cardram 128K (carte de crédit) 


Cardram 256K (carte de crédit) 


Cardram 51 2K (carte de crédit) 


Cardram 1024K 


EMI 256K 


EMI 384 K 


EMI 51 2K 


Packallmentatlon 


Alimentation de sauvegarde 


Câble de liaison imprimante parallèle 


interface mixte parallèle et série 


Câble de liaison PC 


Lecteur de cartes mémoire sur PC 


Manuel technique et de programmation (200pages) 


Etui de protection toile matelassée 


Changement de ROM nouvelle version 1.130 


SOFTS (sur cartes rom) 

Turbo Forth (version complète PC + PORTFOLIO) 


PSASIC 4.91 


PFSOLVER 


P BASE 


1750F 


1990F 


2510F 


900F 


495F 


690F 


960F 


1490F 


520F 


790 P 


970F 


380F 


245F 


80F 


590F 


80F 


1290F 


250F 


295F 


370F 


795F 


470F 


380F 


490F 


Total 


Gestion familiale 


Le contrôleur 


Jeuxl 


Jeux 2 


Utlls 1 


Utlis 2 


Utlls 3 


Macfolio 


Transfert Atari st 


Portfolio 


REPARATIONS de PORTFOLIO 


forfait changement liaison écran-clavier 


forfait changement d'alimentation 


lorfait changement d'écran (occasion) 


forfait révision générale (écran-clavier-carte mère) 


CARTES MEMOIRE PCMCIA (pour HP95/100-Sharp 3000 


OLIVETTI QUADERNO/PHILOS-AMSTRAD PENPAD-etc) 


cartes SRAM 


256KB 


512KB 


1MB 


490F 


490F 


380F 


380F 


380F 


380F 


380F 


380F 


380F 


320F 


160F 


450F 


150F 


690F 


950F 


1590F 


ort colissimo + assurance 

pour une valeur jusqu'à 300F ttc 

pour une valeur jusqu'à 1500F ttc 

pour une valeur jusqu'à 4000F ttc - 

au delà, 45F/60F par tranche de 1500F/4000F 

Supplément pour chronopost : > 

Supplément pour contre remboursement 


— > 251 
-> 45F 
— > 60F 

+ 120F 
— > 45F 


Total général (sous total A+sous total B 

+sous total C + sous total D + port) 


DESIGNATION 


2MB 


4MB doublée Stacker (spéciale pour HP100LX) 


Logiciel STACKER 4.0 (pour doubler la taille des cartes) 


cartes FLASH EPROM 


256KB 


512KB 


1MB 


2MB 


5MB (HP 100LX et Omnlbook) 


10MB (HP 100LX et Omnlbook) 


20MB (HP 100LX et Omnlbook) 


disques durs portatifs externes : (14cmx7cmx2cm ~) 


s'adaptent sur la plupart des pockets 


rrtlnl disque dur portatif sur port // 170MB (15ms) 


mlnl disque dur portatif sur port H 260MB (15ms) 


cartes PREPROGRAMMEES (ROM-RAM en anglais) 


compatibles HP-SHARP-OLIVETTI-AMSTRAD éte- 


rnisé en route en français avec traduction simplifiée 


Astrotutor (astronomie) 


Bearlngs (pour pllotes-sklppers-radio amateurs) 


Prix U 


2690F 


3490F 


1190F 


620F 


920F 


1490F 


2490F 


3990F 


5990F 


6990F 


3750F 


4750F 


1190F 


1190R 


Finance card (calcul d'intérét -amortissements-etc) 


Stock organiser (gestion complète de stocks + mém) 


LIVRES 


Pour PSION Organiser H (en anglais) 


Psion Organiser il Declphered 


File handing and other programs for Organiser II 


Machine code programming on the Organiser II 


Pour PSION Sériés 3/3a (en anglais) 


First steps in programming the Sériés 3 


Séria us programming the Sériés 3 


Serlous programming the Sériés 3a 


Introduction to uslng Sériés 3 


Graphics programming the Sériés 3 


Pour HP 48SX/GX 


Les secrets de la HP48G/GX 


Externals et assembleur 


Mathez la HP48G/GX 


La maîtrise de la HP 48S/SX 


Les secrets de la HP 48S/SX 


Pour SHARP 


manuel langage machine pour PC1350/1403 (anglais) 
manuel langage machine PCI 500 (anglais) 


DIVERS 


Mémo formulaire 


Mémotech électronique 


Mémotech électrotechnique 


1190F 


1590F 


290F 


290F 


290F 


290F 


290 F 


290F 


290F 


290F 


220F 


220F 


200F 


200F 


220F 


Nb 


390F 


250F 


90F 


260R 


260F 


Mme/M : NOM 
Adresse 


Total 


Je règle par : mandat PTT □ chèque O contre remboursement □ 


Date le 1994 
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POCHE COMPUTERS 
c 
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£ 



HARDWARE 


Cartes mémoire RAM (format carte de crédit) 

Cardram CCR 128 495,00 F 

Cardram CCR 256 690,00 F 

Cardram CCR 512 960,00 F 

Cartes mémoire ROM (format carte de crédit) 

Cardram CCR 128 430.00 F ' 

Cardrom CCR 256 580,00 F 

Cardrom CCR 512 810,00 F 

HîmSrtSr Pr ° 8ra,nmahlCS "*>“«*»* «n pra- 

Portfolios neufs 

Portfolio 128K 1750.00 F 

Portfolio 256K 1990,00 F 

Portfolio 384K 2260,00 F 

Portfolio 5 12K 25 1 0,00 F 

Portfolio occasion (garantie de 3 mois- en parfait état de mar- 
che, entièrement révisé atelier) 900F 

Extensions mémoire interne (augmentent la mémoire interne 

du Portfolio ; nécessite renvoi de votre appareil) 

. 'J! (ajoute 128K au Portfolio) 520,00 F 
FMI 384k (ajoute 256K au Portfolio) 790,00 F 

FMI 51 2 K (ajoute 384K au Portfolio) 980,00 F 
ackalimentation Système remplaçant les piles par des aeeus 
très puissants (850 on 1200 „,A) et se rechargeant dans le Portfolio 
par un bloc secteur. Ce système comprend la fourniture des 3 élé- 
ments : chargeur interne (nécessite donc l'envoi du PortMo, + 
accus + alimentation : Très fiable. Amortissement du système en 
quelques mois. Nécessite l’envoi du Portfolio. 

Le packalim avec accus de 850 inA 320,00 F 
Le packalim avec accus de 1200 m \ 420,00 F 

Alimentation de sauvegarde Complémentaire du Packalim 

vette a Un permet de sauvegarder les données du Portfolio en c is 
de ptobleme d’alimentation générale (plantage, micro coupures 

lais de r™ atcum,,,atcl,r vient Prendre immédiatement le re- 
‘ s P 1 es 011 aeeus (conservation des données durant plusieurs 
mois sans aucune source d’alimentation ; nécessite l’envoi du Porc 

Alimentation de sauvegarde 245,00 F 

Interface mixte parallèle/série 59o,dof liaison facile entre 

un Portfoho et un PC on une imprimante. Permet la communica- 
tuin egalement avec d’autres périphériques (MAC avec Macfolio) 

Cable de liaison PC 80,00 F 
Câble de liaison imprimante 80,00 F 

d r R ° m in ‘ erne Remplacement des versions 
, . 1072 du b,os Par une version récente 1.130 ; permet d’évi- 

ter lis plantages et autos meurs division par zéro ! BIOS 370 00 F 

Accumulateurs surpuissants ! Ces nouveaux accumulateurs 

possèdent une puissance de 1200 mA avec une tension maxi de 1 55 

du Pnrtf r^ T * S,andard dc 'vpe R6. Remplacent les piles 
du I nrtfolio et en augmentent son autnnomie de 40% Ils sont uti 

Nsa egaiemen, dans d’an, rts apparoiis. ainsi qu’en ph„m e,t' 

niodelisnie. Le 8s0mA prix u. 23 F - le 1200mA prix u. : 46 F 

Lecteur de cartes mémoire sur PC compatible : 1290F 

SERVICE APRES-VENTE ET 
REPARATION DES ORDINATEURS DE POCHE 

Devis gratuit sur simple demande 

pour le* Por I fôr 1 changCn,ent ,iaison écran -cl a vier : 320 F 

P ur le Portfoho : changement d’écran (occasion) : 450F 

: changement d’alimentation : 160F 


ATARI PORTFOLIO 

“ss-r5sr» ,cs 

Tard TTC au 1/06/1994 ( ce tarit remplace et annule les précédents) 

SOFTWARE 


PÜAS'C Demie» version 4.91 de BJ.GLEASON avec de nom- 
breux utilitaires Dos. Compatible CVVBASIC, ce langage est parti- 
culièrement adapte au l’ortfolin. Il est fourni avec une documenta- 

4 K n’fmiefi * aVe ° deS eXempleS simp,es ' N '«*upan, que 

nrb • a» «.T" SanS Pr " blème avec ■» Purtfolio standard, 
prix . 470,00 f (sur carte rom) 

ASTROPI AN Superbe logiciel d’Astrologie pour amateur ou 

r. f r; n rir c,,<,nnt sur por,fo,i ° s "- pH - »•* 

PFSOLVER de R.NOMI. BEGUIN 

Avec ce module, vous n’aure/ plus rien à envier à HP f 

ésTc' Sm rl el Tf* de T. rbeS ! f ° nC ' i0nS “Puuentieiles e, polai- 
„ * t e S0ft de < * ua,lte a é té élaboré par un élève-ingénieur. 

ou rnis sui carte Rom et fonctionnent sur Portfolio standard 
Documentation explicite. Prix : 380,00 F 

PBASE 

Superbe base de données pour Portfolio. Gère jusqu’à M) chamns 

nie “r R r S D ,e ! Fonctionnt 'U' Portfolio standard etfuuo 
Prix : 490.M F a "°" dé,aillée et d ’uPPrentissage. 

GESTION FAMILIALE 

Pour gerer votre budget - cartes de crédit - chéquier avec établis 
forstandaTr e ' “ n P r ‘ man * e, _ Ponctionne sur Port 

LE CONTROLEUR^ m ' P " X ' 49 °’ 0# F 

Puissant logiciel de gestion d’emploi du temps ; avec visites clients 

horaires, relances, factures etc... Sur Pnrtfoün standard eTtoûrnta 
sur carte Rom. Prix : 590,00 F 

JEUX 1 et 2 2 cartes mémoire ROM ludiques exploitant plei- 

nemen, les possibilités du Portfolio. Jeux de réflexion, d’adresse 

Pri^JEUxTm»; F° r,f0,i ° S ' andard - P ° UrnieS S “ r Car,e Rom ' 

Prix JEUX 2 : 380,00 F 

voir torlâ 3 3 ,r ° iS Carto R0M b0l,rrées d ’ u,ili taires du dos 
pour Portfolio, ainsi que de programmes divers. Elles fonction- 

nent toutes sur Portfolio standard. 

Prix UTI LS 1 : 380,00 F 
Prix UTI LS 2 : 380,00 F 

Prix UTI LS 3 : 380,00 F 

MACFOLIO de R.THIBERT Avec cet ensemble, soi, + câ. 

ptsilToncb ,Ca ' i0n k P0r,f0U0 d Atacintosh devient 

Cert sm T Z ” #d4te de Mac - Prix : 3»M0 F 
.... ">PF Ensemble câble + soft permettant 

a liaison entre le Portfolio et un Atari ST/TT. Prix : 380 00 F 

E TIJ de protection Magnifique étui en tnile matelassée’ spéciale- 
ment étudié pour le Portfolio: 295,00F V 

Ga rantie totale pendant ■■■ jejmnée sur tous nos nro H.ii,. ? 
Frais de port colissimo+assurance = J 

25F (PT7’ colieco) jusqu’à 300F ttc de matériel - | 

4sf jusqu'à 1500F ttc de matériel - 8 

60F jusqu’à 4000F ttc de matériel et par tranche au delà. I 

45,001 de supplément de contre remboursement | 

et supplément de 120,00F pour un chronopost. 1 

CATALOGUE SUR SIMPLE DEMANDE 
^hTTEPAR ÇORRESPONDA]^_E EXCLUSIVEMENT 

(ouverture du lundi au vendredi inclus : de 9h à Ï3h et d^lShluh)" 


Copyright 1994 MICROCARDS 
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IM B ou 2 MB de mémoire 


. :: :.: :: :.: : I : :-j j | 


Le PSION sériés 3a 256K ou 512K de mémoire 
écran de 79 col par 17-CGA - DOS constructeur 
logiciels intégrés - 2 slots cartes mémoire 
dimensions : 1 6,5cm x8^x 2,2 - poids 270g 


MSD^3.3 


i h u h 


Pocket-Consultant 


lèle, sans aucune carte, ni même 
modification du config.sys. 

Ultra rapides 
capacité : 170MB (15ms) 

ou 260MB (15ms) i 
taiile (14cmx7ciux2cm) 


voir tarif et bon de commande en pages intérieures 


en timbres 
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